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PREFACE 


The APL Handbook of Techniques is intended to augment the “‘bag of tricks’’ of the active APL user. 
As in the case of the primitive functions, the defined functions illustrated in this handbook may be used 
without full understanding of their methodology; however, any time spent analyzing the statements will be 
richly rewarded with new insights into the power of APL and the amazing foresight of Ken Iverson and 
Adin Falkoff. 


What you are holding is a compendium of hundreds of functions submitted by professional program- 
mers within IBM. These many contributions have been generalized, extended and harmonized into families 
(such as Text-Editing, Logical Operations, Report Formatting, Multi-Precision Arithmetic and Workspace 
Management). That APL is an art form is quickly evident by examining the various styles represented. 


Various criteria were used jn selecting and refining these functions: elegance, space and execution 
time. However, as you become familiar with each of the functions, you should experiment with your own 
variations, thereby imparting a personal style into your work. Once understood, the functions can be modi- 
fied with confidence in the integrity of APL and its predictability. 


Preparing this collection has been a very rewarding experience for me. | have often said that | am the 
greatest benefactor of this publication, as many of the functions were used to prepare the book itself. But 
the task was aided by the many contributors and the assistant editors. | would like to thank Len Lewis of 
DPD Scientific Marketing who believed from the beginning that such a publication was indeed possible. 
For the idea and the model, thanks to Curt Bury and Dr. Kent Haralson, respectively. For their contribu- 
tions and long hours of testing, thanks to Larry Breed, Norm Brenner, Sylvia Eusebi, Ed Eusebi, Len Gilman, 
Tim Holls, Rainer Kogon, Dieter Lattermann, Beth Luc, Blair Martin, John McCleary, John McPherson, 
Joe Myers, Don Orth and Harry Saal. 


Dave Macklin De gustibus non est disputandum 
December, 1977 


INTRODUCTION 


There are many publications from which one can learn how the operators work, and how to combine characters 
to form APL expressions, but few are written with the intention of developing the reader’s style. 


This handbook contains no explanation of the APL primitives; we assume you already understand them. Similarly, 
fundamental operations are not emphasized. The goal of this handbook is to furnish you with a collection of 
meaningful, useful APL functions, each demonstrating a particular technique. By carefully examining each function, 
you should begin to expand your APL awareness, thus becoming more proficient in the use of the language. 


As with any programming language, there is no single way to solve a problem. However, preferred methods yield 
elegant functions which are either time or space efficient. Conversely, some approaches produce APL functions 
which can be inefficient or limited in scope. To improve your style, study this book and others like it. Examine 
functions written by experienced APL problem-solvers; modify those functions to suit your own needs. Fine tune 
your ability to recognize most efficient APL technique for solving that problem facing you. 
Variable Usage 
Within this publication you will notice both “global’’ and “‘local’’ APL variables. Without the global concept, 
variables which are used by sets of functions would have to be identified on each page they are used. Some of the 
global variables are: 

AV+ ' ABCDEFGHIJKLMNOPQRSTUVWXYZ' 

ALF<AV, 'A_ABCDEFGHIJKIMNOPQRSTUVWXYZ0123456789' 

DIGITS<«' 01234567 894BCDEFGHIJKIMNOPQRSTUVWXYZ' 

BK (BACKSPACE CHARACTER)- SEE VICC PAGE 44 

CR (CARRIAGE RETURN) m _ 

ID (IDLE CHARACTER) a " 

LN (LINEFEED CHARACTER ) " ad 


TB (TAB CHARACTER) moon 


Programming Note 


A very interesting technique is employed in this publication. It can help you to understand how APL functions 
work. On many pages, you will find an “ANALYSIS” section. The first line of this section will be the expression 
being analyzed. As you read on, you will notice a line-by-line explanation of the interim results, as though the 
expression were being executed. By carefully examining this analysis, you will learn how and why the function 
accomplishes the stated technique. 


The information contained in this document has not been submitted to any formal IBM test.. 


Potential users should evaluate its usefulness in their environment. 


FORMAT OF EACH PAGE 


Each page of this handbook contains exactly one primary and, optionally, one 
or more subordinate (secondary) functions. If they appear, subordinate functions 
are located to the side of the page. To locate any function (primary or 
subordinate), refer to the complete subject index or the KWIC index in the 
Appendix. 


subordinate function 
name 
| 
Se er eke Ee ee ee ee 
OIFF DIFFERENCES BETWEEN ADJACENT ELEMENTS ( UNSCAN |\ 


abstract 


function name 


calling sequence &xUTaX: R*DIFF A 


° A IS ANY NUMERIC STRUCTURE. 
° R HAS ONE FEWER COLUMNS THAN A, AND CONSISTS OF THE 
SUCCESSIVE DIFFERENCES, AC..3..;I+1]-AL..3..:2] 


what it does 


seth alles lea cil 


FUNCTIONS: 
APL code V R+DIFF A _ V R*UNSCAN V 
[13 Re((-ppA)t71)+-A-10A C41] R+V(QI01,DIFF V 
v C2] A Vere\R 
v 
EXAMPLE: 
DIFF 11 22 : aces 
at subordinate function 
DIFF -3 49112 
--, 72 APL code 
ae ae 
: es aaa 
4lalzsis: 


C1] Re((-ppA)t71)+-A-164 


53 25 18 24 
40 11 9 20 
S153 14 3 
C1] Re((-ppA)t71)+-A-164 


what occurs during 25 18 26 53 


function execution 419 20 «40 
52 44 3 51 
Ci] Re((-ppA)t™1)4-A-1¢4 
28 7 “6°29 
29 2 ~11 “20 
2 39 11 “48 
C1j  Re((-ppA)t™1)4-A-194 
- = “SIGNS CHANGED 
"28 77 6 29 
29 "2 11 20 
2 ~39 “11 48 
C1]: Re((-ppA)t™1)4-A-19A 


“2 
C1) Re((-ppA)t 1)+-A-16A 


. PADDED 
0 “4 
Cay Re((=p9d)4 2 )474-104 
"28 77 #6 
29° 2 a 


2739 “41 
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Matrix Manipulation Functions 


ADDCOLS ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 
SYNTAX: Z+A ADDCOLS B 


© CONVERTS SCALAR AND VECTOR RIGHT ARGUMENTS INTO ONE-ROW 
MATRICES AND PADS THEM OUT ON THE LEFT (POSITIVE LEFT 
ARGUMENT) OR ON THE RIGHT (NEGATIVE LEFT ARGUMENT). RIGHT 
ARGUMENT MAY BE EITHER NUMERIC OR CHARACTER. 

° USES: VMATRIX 


FUNCTION: 


. V 2+A ADDCOLS B 

Li Z+((1+9B),-A+(*xA)x149B)+B<MATRIX B 
| v 
Vv 


3 ADDCOLS 2 3916 
0 0 0 1 2 8 
0 0 0 4 5 6 
“2 ADDCOLS 345 7 
345700 
0 ADDCOLS 2 3p'ABCDEF' 


AWALYSIS: 
@ THE RIGHT ARGUMENT IS CONVERTED TO A MATRIX, THEN IS PADDED 
@ ON THE LEFT OR RIGHT, OR MADE EMPTY, 
A AS SPECIFIED BY THE SIGNUM OF THE LEFT ARGUMENT (xA). 


ADDROWS ADD ROWS TO A MATRIX VECTOR OR SCALAR 


SYNTAX: Z+A ADDROWS B 


oe Soe aw fame eee See 


° CONVERTS SCALAR AND VECTOR RIGHT ARGUMENTS INTO ONE-ROW 
MATRICES AND PADS THEM OUT ON TOP (POSITIVE LEFT ARGUMENT ) 


OR ON THE BOTTOM (NEGATIVE LEFT ARGUMENT). 
MAY BE EITHER NUMERIC OR CHARACTER. 
° USES: VMATRIX 


ae ee ees me ne Se ee Sere 


VY Z+A ADDROWS B 


[1] Z+((-A+(xA)x14+9B),149B)+B«+MATRIX B 
V 


EXAMPLE: 


eee 


2 ADDROWS 2 2p14 


OF OO 
FNOOO 


"| '"..°2 ADDROWS ‘ABCDEF' 
|ABCDEF 


1 ADDROWS 3 4 5 6 
0 0 O 90 
3 4 5S 6 
p1 ADDROWS 3 
21 


ANALYSIS: 
A THE RIGHT ARGUMENT, CONVERTED TO A MATRIX, IS PADDED 
QA AT THE TOP OR BOTTOM OR MADE EMPTY, AS 
A SPECIFIED BY THE SIGNUM OF THE LEFT ARGUMENT (A). 


RIGHT ARGUMENT 


CCAT CATENATE BY COLUMNS [ VERTAB SMATRIX ROWFORM ] 


SYNTAX: R+A CCAT B 


oo 80 86 8 Oo 


NUMERIC 


SIDE-BY-SIDE CATENATION OF GENERAL STRUCTURES AND TYPES. 
SCALARS WILL BE REPLICATED IF TYPES AGREE. 

VECTORS BECOME ONE-COLUMN MATRICES BEFORE CATENATION. 
NUMERIC TYPES WILL BE PADDED WiTH ZEROS. 

CHARACTER TYPES WILL BE PADDED WITH BLANKS. 

TYPES WILL BE FORMATTED IF TO BE CATENATED WITH 


CHARACTER TYPES. SEE VBESIDE 
© A MATRIX IS RETURNED. 


FUNCTIONS: 


V R+A CCAT B 


[1] a COLUMN CATENATION,SCALAR REPLICATION 


C2] VERTAB 
C3] CFORMAT 
C4) CMATRIX 
[5] ROWFORM 
C6] R+«A,B 


EXAUPLES : 
Seto! 
vex! 
V<'ABC! 
M<2 3p'X! 
T<QM 
V CCAT S 
Ao 
Bo 
Co 
V CCAT U 
Ax 
BO 
Cc 
V CCAT M 
AXXX 
BXXX 
C 
M CCAT Tf 
XXXXX 
XXXXX 
XX 


S CCAT M CCAT S 


V VERTAB 
[1] a ASSUMES A AND B HAVE BEEN LOCALIZED 
[24 A<VERT A A B+VERT B 

V 


V ROWFORM;R 
[1] A ASSUMES A AND B HAVE BEEN LOCALIZED 
[2] +0 IF 0=(ppA)xpoeB 
£3] A«(R,14pA)tA A Be( (R<(1tpA)F1toB),1+9B) +B 


7 CCAT 17 
e- Oo 
7 2 
7 3 V R*eCMATRIX 
7 4 C1] a ASSUMES LOCALIZED A AND B 
7 § C2] 2@'A<MATRIX A'IF O#p90A 
6 [oJ @'B<+MATRIX B'IF O#ppB 
cr. oF V 


CHAR BUILD CHARACTER ARRAY TO NUMERIC PATTERN 
SYNTAX: R+K CHAR N 


° DISPLAYS OR OTHER STRUCTURES CAN BE FASHIONED FROM LOGICAL 
OR NUMERIC STRUCTURES, LATER TO BE OVERLAID BY VFILLS. 
°o USES: YONESIN VA 


FUNCTION : 


V R«K CHAR W;0I0 | | 
C1] aK IS SINGLE CHARACTER TO BE PLACED 
[2] am ACCORDING TO POSITIONS OF ONES IN N 
C3] R<(x/pW)p' "A DrO<0 
C4] RLOWESIN,NW1<K 
[5] R<(pN)oR 

V 


FOoOOOrF 

OrFPOrR OO 

ooroO Oo 

“OFOFO 
(o) 


X'CHAR PATTERN 


DIFF DIFFERENCES BETWEEN ADJACENT ELEMENTS [ UNSCAN J] 


SYNTAX: R<«DIFF A 


ee 


°o A IS ANY NUMERIC STRUCTURE. 
°o R HAS ONE FEWER COLUMNS THAN A, AND CONSISTS OF THE 
SUCCESSIVE DIFFERENCES, AC..3;..3;It1J]-AL..3..;2] 


FUNCTIONS: 
V R+DIFF A V R<UNSCAN V 
Ltd R+((-ppA)t+ 1)4¥(104)-A [1] R<V{(OIO],DIFF V 
V [2] a V<+r+\kR 
V 
EXAMPLE: 
DIFF 414 2-22 
11 
DIFF -3 4p112 
ee ee eee 
73 de; 
he go 
ANALYSIS: DIFF 3 4912799 


[1] R+((-ppA)4+~1)4(14)-A 


512 54 4 87 
80 68 37 96 
35: 3.6. 120. -<75 
[1] R+((-ppA)t™1)¥ (104) -A 


54 u 87 51 

68 37 96 80 

38 20 75 35 
C1] R+«((-ppA)t+ 1)4¥(1064)-A 

4 ONE TOO MANY COLUMNS 

3°50 83 36 
12 31 59 16 

3-78 55" 20 
C41] R+((-ppA)t+ 1)4(1OA)-A 


2 
[41] R«((-ppA)+ 1)4¥(1064)-A 


FOR ANY STRUCTURE 


Or 2 
C1] R+((-ppA)t 1)4¥(104)-A 


EDIT EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [( SEDIT ] 


SYNTAX: EDITED*EDIT UNEDITED 


© LATENT EXPRESSIONS AND OTHER CHARACTER STRINGS ARE OFTEN 
DIFFICULT TO MODIFY, (CHANGE, ADD, DELETE), ESPECIALLY 
WHEN QUOTATION MARKS ARE INVOLVED. EDIT PERMITS YOU TO 
DEAL WITH THE FINAL APPEARANCE OF THE VECTOR. 

°o VECTORS MAY EXPAND OR CONTRACT. 

0 USE YMEDIT TO MODIFY MATRICES. 


FUNCTIONS: 


V EDITED*EDIT UNEDITED;SLASH 
ea O<EDITED<((+/' '=SLASH)+UNEDITED) ,{M.(9,SLASH<™)+0«UNEDITED 
V 


V EDITED<SEDIT UNEDITED ;SLASH 

[1] a SAME AS EDIT, BUT INSERT IS AN EXECUTABLE EXPRESSION 

[2] O+EDITED<((+/' '=SLASH )*+UNEDITED),(#M),(9,SLASH<l))+0«+UNEDITED 
V 


A CHARACTER VECTOR WITH QUOTES WOULD HAVE TO BE KEYED, THUS: 
O«+A+'HE SAID,'''"HELP ME, I''M DROWNING!'''!'! 
HE SAID,''HELP ME, I'M DROWNING!''! 


A+EDIT!' (TO CREATE ITEM) 
(OPPORTUNITY TO DELETE) 
(OPPORTUNITY TO ADD, NOW) 
HE SAID,''HELP ME, I'M DROWNING.'! 
HE SAID,''HELP ME, I'M DROWNING!'' (FOR PROOFREADING) 
A«EDIT A 
HE SAID,''HELP ME, I'M DROWNING!''! 
(SPACE TO INSERTION POSITION) 


PLEASE 
HE SAID,''HELP ME PLEASE, I'M DROWNING!!! 
A«EDIT A 


HE SAID,'"HELP ME PLEASE, I'M DROWNING!''! 
(SPACE TO INSERTION POSITION) 

PLEASE 

HE SAID,''PLEASE HELP ME PLEASE, I'M DROWNING!''! 

A«EDIT A 
HE SAID,''PLEASE HELP ME PLEASE, I'M DROWNING!''! 
/{//1/1/ (TO DELETE) 
(NO INSERTION) 

HE SAID,'"PLEASE HELP ME, I'M DROWNING!''! 


SEDIT ‘TYPEWRITER IS A X-LETTER WORD.' 
TYPEWRITER IS A X-LETTER WORD. 


¥o'TYPEWRITER' 
TYPEWRITER IS A 10-LETTER WORD. 


ERECT ERECT WORD MATRIX FROM CHARACTER STRUCTURE [ DLTMB ] 


SYNTAX: R+ERECT A 


INPUT WORD SEPARATORS ARE SINGLE OR MULTIPLE BLANKS 
INPUT NEED NOT BE A VECTOR. 

HIGH-SPEED DESIGN COMPUTES ADDRESSES. (SEE VSHAPE) 
USES: VDIFF VDLIMB VA 


o Oo 0 98 0 


FUNCTIONS: 

V ReERECT A:O7T03:233:83;D;COLS;ROWS;2Z 
Pad A AVOIDS OUTER PRODUCT FOR SPEED; ASSUMES BLANK DELIMITERS 
[2] COLS<+«[ /D« 1+DIFF 0,5911ROWS<1+ 1+S+«+\L<«' '=A<DLTMB A A DIO+«1 
£3] Z<+(ROWSXCOLS)p' ! 
C44 ZLC(oL)/+\L\COLS- 1¥D)+1t+/~LJ<(~L)/A 
[5] R<«(ROWS,COLS )pZ 


Vv 
V R«DLIMB A3Z 
C1] a DELETE LEADING, TRAILING, MULTIPLE BLANKS 
t23) R<1i¥(ZV10Z<Az' ')/A<,' ',A 
V 
EXAMPLE: 
M 
VFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX 1] 
XVEC EXPAND LOGICAL VECTOR 
ZDIV ZERO TOLERANT DIVISION [ CDIV ] 


TIME'J<ERECT M' 
10 MSEC 0 BYTES 
TIME'J<'* '"SHAPE,M' 
22 MSEC 0 BYTES 
ERECT M 
VFORM 
VARIABLE 


MATRIX 

[ 

ESCAPE 

ESCAPEX 

1 (NOTE USE OF Z AS LOCAL VARIABLE TO SAVE TIME AND SPACE) 
XVEC 

EXPAND 

LOGICAL 

VECTOR 

ZDIV 

ZERO & 
TOLERANT 

DIVISION 

c 7 
CDIV 

J 


BUILDS TABLE THAT CAN BE ADDRESSED RANDOMLY OR SEQUENTIALLY 


FIRSTM SELECT FIRST OR ONLY APPEARANCE IN MATRIX ( FIRSTV J] 


SYNTAX: L+FIRSTM M 


oe ae See Sees See oe 


RETURNS LOGIC VECTOR THAT CAN SELECT: 
° ROWS OF A MATRIX, IGNORING DUPLICATES 
° THEIR INDICES 
© CORRESPONDING ROWS OF INVERTED FILES 
SEE VRIOTA 


FUNCTIONS: 
V L<FIRSTM M V L«+FIRSTV V 
C1] L<V4<\MA.=QM Ci] L<(ViV)=i9V 
V FOR VECTOR ARGUMENTS. 
SEE VDREP. 
EXAMPLES: 


Te 


(FIRSTM M)7/M 


(FIRSTM M)/1i1+pM 
1 2 4 
FIRSTM M 
110100 


ANALYSIS: (FIRSTM M)#M 


C1] L<«V4<\MA.=QM 
"TRANSPOSE ASSURES CONFORMITY 


Ci] L<v7<\MA.=QM 


COOrRPOF 


ee a 


<\ CAPTURES POSITION OF FIRST 1 ENCOUNTERED. 
110100 LOGIC VECTOR TO SELECT ROWS 


FRAME FRAME AN ARRAY [ MATRIX CHARACTER } 


SYNTAX: Z*+FRAME A 


am ce eee Se oie om 


eo EMPLOYS THE CHARACTERS '_ |' TO BUILD A FRAME AROUND 
ANY ARRAY AFTER RESHAPING IT AS A MATRIX. 
© NO DATA IS TRUNCATED. 
© USES: VCHARACTER VTABULATE VADJUSTUP VADJUSTDOWN 
VFRAMETEST VMATRIX VIF 


FUNCTIONS: 
V Z+FRAME A;0IO V I+CHARACTER A 

[1] +L1 IF CHARACTER 2+A [1]  f+0#0\0pA 

[2] Z+TABULATE 2 _ v 

[3] L0:Z+1 ADJUSTUP'”',[OI0+112Z 

[ul get [ (2,011 9 51(' V Z+MATRIX A _ 

[5] +0 A Z+(1tpZ)ADJUSTDOWN Z [1] Z<((x/~14Z), 142«1 1,pA)pA 

[6] L1:+L0 IF 0=FRAMETEST Z+MATRIX Z [2] a RESULT HAS TWO DIMENSIONS 
v V 

EXAMPLE: 


— oe ae ee ee ee 


LV+'THIS IS A LITERAL VECTOR' 
FRAME LV 


eee me eee ee ee eee ee ee ee ee we ee ee wee wee ee ee ee ee ee ee ge oe 


A LINE 6 CHECKS WHETHER THE ARGUMENT, IF CHARACTER, 
A IS ALREADY FRAMED. 

A LINE 3 FRAMES THE TOP, PLACING THE CHARACTER '|' 
A IN THE FIRST AND LAST COLUMNS. 

A LIWES 4% AND 5 FRAME THE SIDES AND BOTTOM. 


FRAMETEST CHECKS A MATRIX FOR FRAMING 


SYNTAX: Z«FRAMETEST A 


o EXAMINES A MATRIX FOR THE PRESENCE OF FRAMING ELEMENTS 
']_~' AROUND ITS PERIPHERY AND RETURNS A 1 IF PRESENT, 
O OTHERWISE. 

° USES: VIF 


V Z<+FRAMETEST A 

[1] 2Z+«-OI0+1 

[2] +0 IF 0=x/pA 

[3] +70 IF A[1;1]#'|' 

[4] 70 IF 12#A/,(AL1,1+p4;],8A031, 1tpAlje'{_'' 
[5] Z+«4 


me pee See Om cree Bee 


Oo w 


FRAMETEST Y 
0 


AWALYSIS: 

A LINES 2,3,4% SET THE RESULT TO 0 IF THE ARGUMENT IS EMPTY, OR THE 

a [L1;1] ELEMENT IS WOT '|' OR THE ELEMENTS IW THE FIRST AND LAST ROWS, 
a FIRST AND LAST COLUMNS ARE NOT ALL MEMBERS OF '|_-'. OTHERWISE THE 
A 


RESULT IS 1. 


10 


GRADEUP GENERATE ASCENDING ROW INDICES [ AV ALF NWFORM LJNFORM ] 


SYNTAX: I<+C GRADEUP K 


°o TO SORT A LEFT-JUSTIFIED MATRIX ALPHABETICALLY 


°C IS A COLLATING SEQUENCE; K IS A CHARACTER MATRIX. 


o IF UNIQUE DISTINCTIONS OCCUR ONLY AT RIGHT SIDE, 
AND IF THE COLLATING SEQUENCE IS LONG, IT MAY BE 
NECESSARY TO SORT IN MORE THAN ONE PASS, FIRST 
ACCORDING TO THE RIGHTMOST COLUMNS. 

° USES: VNFORM 


FUNCTIONS: 
V I*C GRADEUP K V W+C NFORM K;0I0 
[1] I<«AC NFORM K [1] W+(pC)1C.1.K A OL0+«0 
V V 
V R<«C LINFORM K 
Pid R<«C WFORM((1+pR),11)+R*ERECT,K,' ' 
V 
EXAMPLES: 


AV<+! ABCDEFGHId KLMNOPQRSTUVWXYZ" 
A A USEFUL GLOBAL, WITH 11-COLUMN RESOLUTION 


A USED BY VVARS...LESS RESOLUTION BUT MORE CHARACTERS 


AV GRADEUP 3 1p'ZYxX' 


3.2 1 
O<+A<ALAV GRADEUP A+«' 'SHAPE'TOM DICK HARRY';] 
DICK . 
HARRY (ALPHABETICALLY SORTED) 
TOM 
ALGAV GRADEUP A;3] 
TOM 
HARRY (REVERSE ORDER) 


11 


INDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A 


SYNTAX: Z+A INDEX B 


en Bees eee Sane ems cee 


o RETURNS THE INDEX POSITION OF EACH COLUMN OF B ALL OF WHOSE 
ELEMENTS ARE IN A. B MUST BE A MATRIX. THE SHAPE OF A IS 
NOT RESTRICTED. THE ARGUMENTS MAY BE EITHER CHARACTER OR 
NUMERIC. 


V Z2<«A INDEX B 
C1] Z<(A#BeA)/1140B 
V 


EXAMPLE: 
A<+i10 
B<+?3 89115 
B 
1 1 1 3 5 Al 4 4 
9g 8 de, ed 9 12 3 1 
2 4 4 2 it 3 41 7 
A INDEX B 
1 225 78 
'A' INDEX C+3 6p'ABCDEFAHIJKLABCXYZ' 
1 
Cc 
ABCDEF 
AHIJKL 
ABCXYZ 
ANALYSIS: 


Q@ 'ANDS' OVER THE COLUMNS OF THE LOGICAL MATRIX CREATED BY BéeA, 
@ THEN USES COMPRESSION TO SELECT THE CORRESPONDING COLUMN INDICES. 


12 


MEDIT EDIT MATRIX 


SYNTAX: R<KD MEDIT M 


—— a ee ee ee oe 


o RETURNS A MODIFIED FORM OF STRUCTURE M AS A MATRIX. 

°o KD IS A PAIR OF INTEGERS, THE FIRST, K, SIGNIFIES THE 
NUMBER OF ROWS OF M PRECEDING THE ONE TO BE CHANGED, 
INSERTED, OR DELETED. THE SECOND, D, IS THE LINE NUMBER 
TO BE DELETED. 

o THE KEYBOARD WILL UNLOCK FOR THE EXPRESSION THAT WILL 
GENERATE THE LIWE(S) TO BE INSERTED. 

o THE INSERT MAY BE AN ALTERED FORM OF THE LINE(S) DELETED. 

o WHEN K=D, THE INSERT WILL APPEAR AFTER LINE K. 

° WHEN K<D, D-K LINES WILL BE DELETED BEFORE ACCEPTING THE 
INSERT. (IF K>D, K-D ORIGINAL ROWS WILL APPEAR BEFORE AND 
AFTER THE INSERT.) 

° USES: VMATRIX VON VA 


FUNCTION: 
V R«KD MEDIT M;0I0 

[1] a MATRIX EDIT (DELETE, INSERT, CHANGE) 

[2] R+<(((14+KD),14¥0M)tM)ON( eM )ON((14KD),0)¥M<MATRIX M A (IO+1 
V 


EXAMPLES: 
1 2 MEDIT 3 4p112 (DELETING ROW 2) 
10 (INSERTING NOTHING) 
4 2 3 4 
9 10 11 12 
1 1 MEDIT 3 4p112 


i (INSERTING 1) 
il 2 3 4 
al 0 0 0 
5 6 7 8 
9 10 11 12 
1 2 MEDIT 3 49112 
ML 23] (INSERTING FUNCTION OF EXISTING ROW) 
1 2 3 4 


8 7 6 5 
Oo: 220°! 22°. <12 


3 0 MEDIT 3 49112 (SUPERIMPOSING FIRST THREE ROWS) 
0 (INSERTING ZEROS) 
1 2 3 4 
5 6 fi, 8 
o. 20. oft, 22 
0 0 0 0 
1 2 3 4 
5 6 7 8 
9 10 11 12 


1 1 MEDIT 2 3p'ABCDEF' 
' 4 THIS IS THE LETTER B' 
ABC 
+ THIS IS THE LETTER B 
DEF 13 


M2V COMPRESS CHARACTER MATRIX EXPAND RESULT [ V2M !} 


SYNTAX: V+M2V M AND M<V2M V 


a a 


THESE COMPLEMENTARY FUNCTIONS ALLOW TWO-WAY CONVERSION 

BETWEEN CHARACTER MATRICES AND CHARACTER VECTORS. 

M2V: CONVERTS A CHARACTER MATRIX M TO A CHARACTER VECTOR V. 
EACH ROW OF M, WITH TRAILING BLANKS OMITTED, BECOMES A 
‘LINE’ IN V, ENDED BY A CARRIAGE RETURN. 

V2M: CONVERTS A CHARACTER VECTOR V TO A CHARACTER MATRIX M. 
EACH ‘LINE' (A CHARACTER STRING ENDING IN A CARRIAGE 
RETURN) BECOMES A ROW OF M, WITH PADDING AS REQUIRED. 

BOTH V AND M WILL APPEAR THE SAME WHEN DISPLAYED, BUT THE 

VECTOR REPRESENTATION IS USUALLY MORE ECONOMICAL IN STORAGE. 

THE GLOBAL CR MUST EXIST IN WORKSPACE. (SEE VICC PAGE). 


FUNCTIONS: 
V V+M2V M 

C1] Ve 1¥(,61,Vv\' '#6M)/,M,CR 
V 


V M+V2M V;0I0 
[1] Oro+1 
[2] M<(o0M)o( .M<Mo .211 /0,M*M-1+0, 14M<M/19M)\(~M<V=CR)/V<V CR 
V 
EXAMPLES: 
O<«+V+'LIWE 1.',CR,'LINE NUMBER 2' 
LINE 1. 
LINE NUMBER 2 
oV 
20 
O<«M+V2M V (CONVERT VECTOR TO MATRIX) 
LINE 1. 
LINE NUMBER 2 
oM 
2 13 
V2«+M2V M (CONVERT MATRIX BACK TO VECTOR FORM) 


A/V=V2 (COMPARE TWO VECTORS) 


ANALYSIS: 

M2V[L1]: A COLUMN OF CARRIAGE RETURNS IS CATENATED ONTO M AND THE RESULT 
RAVELED AND COMPRESSED BY A BOOLEAN VECTOR TO REMOVE TRAILING 
BLANKS IN EACH ROW. THE FINAL CARRIAGE RETURN IS THEN REMOVED. 


V2ML2]1: AFTER A CARRIAGE RETURN IS CATEWATED ONTO V, IT IS SEARCHED FOR 
CARRIAGE RETURNS AND THEY ARE COMPRESSED OUT. THIS RESULT IS 
THEN EXPANDED BY A BOOLEAN VECTOR WHICH HAS THE EFFECT OF PADDING 
LINES TO THE SAME LENGTH. THE RESULT IS RESHAPED INTO A MATRIX. 
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PREEDIT PREPARE MATRIX FOR FUNCTION-LIKE EDITING [ POSTEDIT } 


SYNTAX: R«TNAME PREEDIT M 


© [NAME IS A TEMPORARY NAME TO BE ASSIGNED TO A COPY OF THE 
MATRIX, M, SO THAT IT MAY BE EDITED AS IF IT WERE A 
DEFINED FUNCTION. TNAME IS A CHARACTER STRING. 

o WHEN EDITING IS COMPLETE, KEY: R+POSTEDIT TNAME, 
WHERE R CAN BE THE OLD OR NEW NAME OF THE EDITED MATRIX. 

°o USES: VESCAPE YON 


me ee oe ae —_ 


V R«TNAME PREEDIT M 
C1] (TNAME,' IN USE')ESCAPE O#0NC TNAME 
[2] R<«OFX TNAME ON'a', eM 


Vv 
V R«POSTEDIT TNAME; JS 
C1] "NOT A NAME'ESCAPE~CHARACTER TNAME 
[2] (TNAME,' NOT A FUNCTION' )ESCAPE 3#0NC TNAME 
[3] R+i 140CR TNAME 
C4] J+OEX TNAME 
V 
EXAMPLES: 
A«ERECT'TOM DICK HARRY' 
A 
TOM 
DICK 
HARRY 
B+'JOE'PREEDIT A 
B 
JOE 
VJOEL[D) (FOR FUNCTION EDITING) 
V JOE 
[1] aToOmM 
[2] ADICK . (LAMP SYMBOLS PROTECT INTEGRITY OF DATA) 
C3] aAHARRY 
Vv 
bu CA2] (TO DELETE ROW 2) 
[2] Vv 
C<+POSTEDIT B 
r& 
TOM (LAMP SYMBOLS HAVE BEEN REMOVED) 
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RCAT 


SYNTAX: 


o 0 0 0 


CATENATE STRUCTURES BY ROWS { COLFORM VERT } 


R<« A RCAT B 


OVER-UNDER CATENATION OF GENERAL STRUCTURES AND TYPES. 


SCALARS WILL BE REPLICATED. 


PADDING WILL BE BLANK FOR CHARACTERS, ZERO FOR NUMBERS. 


NUMERIC TYPES WILL BE FORMATTED IF TO BE CATENATED TO 


CHARACTER TYPES. SEE: VON YCCAT 


o A MATRIX IS RETURNED. 


FUNCTIONS: 


Tam ree Seem Gere Seen Er Sew eae Sole 


V R+A RCAT B 


USES: VCFORMAT VCMATRIX VCOLFORM VVERT 


LiJ a ROW CATENATION,SCALAR REPLICATION 


[2] CFORMAT 
[3]. CMATRIX 
C4] COLFORM 


[5] @'R<VERT A,',((0#(ppA)+ppB)/'COITOJ'),'B! 


V 
EXAMPLES: 
Setot 
U<+'x{({! 
V<+'"ABC'! 
S RCAT U 
foe) 
* 
U RCAT V 
*Q 
ABC 
1 RCAT 15 


go Ode. de” Se SE 
ay 2 8 eS 
S RCAT 15 


000000000 


U RCAT 15 


V COLFORM:R 
[1] 9 ASSUMES A AWD B HAVE BEEN LOCALIZED 
co] >0 IF 0=(ppA)xopB 


E32 A<((1t+pA),R)tA A B+((14pB),R<«(1+4pA)T1+0B)+B 


V 


VY Z2<VERT X 
C1] Z+((pX),(1=ppX)o1)oXx 
V 
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REPL REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY 


SYNTAX: R«VV REPL A 


VV IS A TWO-POSITION CHARACTER OR NUMERIC VECTOR. 
A IS AN ARRAY OF THE SAME TYPE. 
ALL APPEARANCES OF 1+VV WILL CHANGE TO 14VV. 


FUNCTION: 
V R<«VV REPL A 
[1] RL (R=14*VV)/i1pR<.,AI*«14VV 
[2] R<(pA)pR 
V 
EXAMPLES: 
'~" 'PHPL'-1234.56' MINUS SIGN BECOMES APL NEGATIVE 
“1234.56 
0 1275 REPL (13)°.=13 CHANGE ZEROS TO iF75 


ANALYSIS: do 4 REPL: 2 S61. 0 


en ee Se cee ee ee ee 


Et RUCR=1tVV)/1pR+«,Al*14VV 


SEND IN REPLACEMENTS 
[1] RUCR=1tVV)/ipR+,A]+1 VV 


40 4°04 
Ol. (04%. 
Et RE (R=14+VV)/1pR+,Al*<1+VV 

cae NOW A VECTOR 
0: 4. OA 6 ho: ASO 
ae RU(R=14+VV)/1pR+,A]*+14VV 
12345678 9 10 
[1] RL(R=1+VV)/1pR<,41<14VV 


se ae Wao es ae ge 0 ed Gam 
[ 


CikeantiesatiientReniics Mic Eeti eR 


CoN iE eee 


[2] R«(pA)pR 
isc a © mei es © nl ee 0 GN. tc © PN 
[27] R<«(pA)pR 


[2] R<+(pA)pR 


RIOTA MATRIX ROW IOTA 


SYNTAX: R+«X RIOTA Y 


o RIOTA EXTENDS TO MATRIX ARGUMENTS THE FUNCTION OF 

DYADIC 1. (AiB...THE LEAST INDEX IN VECTOR A OF THE 
ELEMENTS(S) IN SCALAR OR VECTOR B). 

o THE RESULT R IS A VECTOR OF THE RESPECTIVE ROW INDICES 
OF THE FIRST OCCURRENCE OF THE ROWS OF Y IN X, IGNORING 
TRAILING BLANKS. IF A ROW OF Y DOES NOT OCCUR IN X, THE 

CORRESPONDING ELEMENT OF R IS SET TO 1+1+pX. 

NON-MATRIX ARGUMENTS ARE RESHAPED. SCALAR AND 
VECTOR ARGUMENTS ARE TREATED AS 1-ROW MATRICES. 
°o USES: VMATRIX VA 


V R«X RIOTA Y 

[1] Y*+MATRIX Y A X*MATRIX X 

[2] R<DIO++/~vV\ (C00 1xpX)PeY)tY)a.=QC(0 1xpY)[ px )+x 
V 


EXAMPLE: OIO0<1 


X«3 4Up'AAAABBBBCCCC! 
Y*2 Sp'CCCC XXXXxX' 


X RIOTA Y 
3.4 
ANALYSIS: 
THE LEFT ARGUMENT, X, IS TRANSPOSED AND BECOMES THE RIGHT ARGUMENT 
IN THE MATRIX INNER PRODUCT COCO: Kas ABC 
XXXXX ABC 
ABC 
ABC 


THE RIGHT ARGUMENT IN THAT EXPRESSION HAS A FIFTH (BLANK) ROW TO 
SATISFY THE INNER PRODUCT REQUIREMENT THAT THE LAST DIMENSION (5) 
OF THE LEFT ARGUMENT MUST BE THE SAME AS THE FIRST DIMENSION OF 
THE RIGHT ARGUMENT. EACH ROW OF THE LEFT ARGUMENT IS COMPARED 
AGAINST EACH COLUMN OF THE RIGHT ARGUMENT GIVING THE MATRIX 

00 1 

0 0 0 WHICH IS TRANSLATED INTO THE VECTOR 2 3 BY +/~vV\. ADDING 
DLO GIVES THE RESULT 3 4 (FOR ORIGIN 1) OR 2 3 (FOR ORIGIN 0). 
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SHAPE SHAPE MATRIX FROM CHARACTER STRING 


SYNTAX: R«C SHAPE X;3L 


0 X IS A CHARACTER VECTOR COMPOSED OF PHRASES OF VARIABLE 
LENGTH, SEPARATED BY ANY OF THE CHARACTERS IN VECTOR C. 

°o A MEMBER OF C MAY EVEN BE PART OF A PHRASE, IF IT IS 
SURROUNDED BY QUOTES IN xX. 

o SEE VERECT 


V RC SHAPE X31 
C1] R<(C=\X4" "8 )AX EC) / 19 X<X 14 
[2] L+l /R+R-OI0,1+ 1i+R 
C3] R<-(0#R)70 “414((pR),14+Z2)0(,(Reo.20~0T0) +12) ,1)\X 


' "'SHAPE'TOM DICK HARRY' 


';,. 'SHAPE'SEMICOLON'';'';COMMA'','',PERIOD‘'.''* 
SEMICOLON';' | 
COMMA',' 

PERIOD'.' 


[iJa ‘LOGICAL VECTOR SELECTS 12 21 31 AS END POINTS 
[2]a MAXIMUM LENGTH COMPUTED AS 12 

C3] R+«(02#R)/0 “1¥((pR),1+L)p(,(Re.2(~OI0)+1L),1)\X 
8 9101112 

#0 “14(0(pR),14+2)9(,(Ro.2(-0T0)412),1)\X 


ee eee 


ae ne 
bs pS 


my 
BRP 


— ae ee ow ame et me ee ee ee ee we ee ee ee we oe ae me ee oe 


SEMICOLON';';COMMA',' »PERIOD'.* : 

C3] R+(O#R)A0 “14((pR),14+L)0(, (Re. 2(~0I0)+1L),1)\X 
3 13 

[3] R<«(0#R)40 14((0R),14+2)0(,(Re.2(~0I0) +12) ,1)\X 


SEMICOLON';'; 
COMMA',' : 
PERLOD" «3 ; 
(WOW STRIP SUPERFLUOUS PUNCTUATION ) 


ULINE UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ USCORE } 


SYNTAX: R+«N ULINE K 


©o RETURNS AN EXPANDED MATRIX WITH UNDERSCORES INSERTED, 

AS INDICATED BY N, A VECTOR OF ROW NUMBERS []IO+1. 
© UNDERLINES WILL NOT APPEAR IN COLUMNS THAT ARE ALWAYS BLANK. 
© GIVEN A CHARACTER VECTOR, VUSCORE IS MUCH FASTER THAW VULINE. 
© USES: VMATRIX VESCAPEX VXVEC VCVEC VFILLS 


FUNCTIONS: 


V RN ULINE K3;L;0203J3I 
C1] K*+MATRIX ¥K 
[2] ''tMATRIX HAS ROWS NUMBERED: '',¥J'ESCAPEX~A/NeJ<1I+«(OI0«1)t+oxk 
C3] R<«(L<(1 XVEC I CVEC 1+N),0)%K 
C4] R<«(-J,0)4R FILLS(~L)\(((S*«I>F/N)+p.NV),14pK)p(v¢AKe' ")\t! 


V R«USCORE KV 
C1] R+KV,COIO-0.5](Kvz#' *)\t7! 


EXAMPLES: V 
NAMES BESIDE SCORES 

TOM | 4 60 56 

DICK | 107 84 62 

HARRY| 18 64 90 


(~1t+4+/SCORES)ULINE NAMES BESIDE SCORES 
TOM | 4 60 £56 
DICK | 107 8% 62 
HARRY| 18 64 = 90 
THE WINNER AND HIS SCORES 


epSCORES 

3 3 A NUMERIC MATRIX 
4 ULINE SCORES 

MATRIX HAS ROWS NUMBERED: 1 2 3 
3 ULINE SCORES 


ANALYSIS: 
[1] FORCES 2=ppXk 
[2] CHECKS FOR ILLEGAL ROW NUMBERS, PRINTS MESSAGE, THEN ESCAPES. 
[3] GENERATES EXPANSION VECTOR, THEN EXPANDS K. 
C4] REPLICATES UNDERLINES, IF NECESSARY, EXPANDS THEM, THEN MERGES 
THEM WITH THE RESULT OF [3], 
AND FINISHES WITH SOME HOUSEKEEPING, IF NECESSARY. 
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VFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX ] 


SYNTAX: R<F VFORM M 


St ae eee Sacer meee 


o THE APL FORMAT FUNCTIOW (¥) ACTS UNIFORMLY ON ALL ROWS OF 
A MATRIX WHILE ALLOWING VARIABLE WIDTHS AND DECIMAL PLACES 
FROM COLUMN TO COLUMN. VFORM PERMITS A UNIFORM WIDTH FOR 
ALL COLUMNS WHILE ALLOWING INDIVIDUAL ROW DECIMAL PLACES. 
M IS A NUMERIC MATRIX. F IS A NUMERIC VECTOR OF THE FORM 
W,D1,N1,D2,N2,...WHERE W IS THE FORMAT WIDTH FOR ALL COL- 
UMNS. D1 IS THE NUMBER OF DECIMAL PLACES IN THE FIRST 
BLOCK OF ROWS; N1 IS THE NUMBER OF ROWS IN THE FIRST 
BLOCK, ETC. oF MUST BE ODD, AND THE SUM OF N'S MUST EQUAL 
THE NUMBER OF ROWS IN THE MATRIX. 

°o USES VHANG, ALTHOUGH VESCAPE MAY BE SUBSTITUTED. 


FUNCTIONS: 


V R<F VFORM M;sI3:J7;0I0 
[1] OIr0<0 


[2] 'NOT A MATRIX'HANG 2%#p0M 

[3] 'WRONG LENGTH LEFT ARGUMENT'HANG ~2\|oF 
C4] F<FLO],(°(( 1+pF)#2),2)p14F 

[5] 'WRONG ROW COUNT'HANG(1+tpM)#+/J<FL[ 32] 


[6] F<+FL;30 1] 
C7] R+(0,(140M)x''pF)pI+0 
[8] Di:R<R,COIJFPLT; JPME (+/ItJ )+idgllI);] 
[9] >L1x(oJ)>I<«I+1 
V V MSG ESCAPE CONDITION 
Ete © WILL LEAVE NO TRACE....BETTER TO 
[2] e USE VHANG TO CHECK DOMAIN ERRORS 


EXAMPLES: [3] +0 IF~CONDITION 
Cy] MSG 
C+5 49120 [C5] > 
Cc V V QEXP ESCAPEX CONDITION 
a: 2 3 4 [1] +0 IF*CONDITION 
5 6 7 8 [2] 2QEXP 
OG. - 20° ea, “ae Loa > 
13. 24h 215 16 [4] a WILL EXECUTE THE QUOTED 
17 18 19 20 [5] a EXPRESSION, THEN ESCAPE 
8 41.10 22 2. VFORM CC V 
1:0 2.0 a2 4.0 
5 6 i) 8 
9 10 a el +2 


13.00 14.00 15.00 16.00 
17 OO 18.00. 19:6:0:0 20.00 


ANALYSIS: 

IN LINE 8, J(I] IS THE NUMBER OF ROWS IN THE BLOCK BEING FORMATTED, 
F(I;] IS THE UNIFORM WIDTH AND THE NUMBER OF DECIMAL PLACES FOR THE 
BLOCK. EACH BLOCK IS FORMATTED AND CATENATED TO R IN LINE 8 UNTIL 
THE NUMBER OF BLOCKS EQUALS THE COUNT I IN LINE 9. 
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WIDTH 


SYNTAX: 


ey ete Re me eee 


V W<+K WIDTH 
Ci] We 1++7Vo 
V 


EXAMPLES: 


ae en wane ame So ee oe 


MEASURE FORMATTED MATRIX 


W<+K WIDTH MATRIX 


RETURNS THE ACTUAL WIDTH OF ALL FIELDS AS A VECTOR. 
BLANK AREAS ARE NOT CONSIDERED SIGNIFICANT. 

A GLOBAL LOGIC VECTOR CAPABLE OF COMPRESSING 

(THEN EXPANDING) THE FORMATTED MATRIX WILL BE NAMED 
ACCORDING TO THE CHARACTER(S) OFFERED AS K. 

USES: VDMZ 


MATRIX;V;0I0 
22. 1¢V<e+\(OT041),~DMZ2K,'<v¢MATRIXZ#*'' 11! 


'"B'WIDTH 9 24MM 


7 5 5 4 
B 
Oo 10> toe Sw. A 
9 27MM 
1000.00 87 
920.42 87 
840.17 87 
B/9 27MM 


Be 20830. 20> Ay sch a A Ee OO es Ae Se ahs te Oy eo) SO Oras, > ae “ad 


<O2 79258 8.33 
«92 80.25 TEOd 
a 4 80.91 7.00 


1000.0087.9279.588.33 
920.4287 .9280.257.67 
840.1787.9280.917.00 
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WORD SELECT NTH WORD IN CHARACTER STRUCTURE ({ DITMB 1 


SYNTAX: W<NTH WORD K 


° IF WORDS IN A VECTOR ARE DELIMITED BY BLANKS, OR APPEAR 
IN SEPARATE ROWS OF AN ARRAY AND ARE SIMILARLY DELIMITED, 
THEY CAN BE CHOSEN BY THE NATURAL NUMBERS INDICATING 
THEIR POSITION, FROM LEFT TO RIGHT AND TOP TO BOTTOM. 


FUNCTIONS: 
VY W«NTH WORD K 
[1] Wet+(NTH=+\"' '=W)/WHDTMB,' ',K 
V : 
V R«DIMB K3A;32 
| [1] a DELETE TRAILING AND MULTIPLE BLANKS 
EXAMPLE: C2] R+*(Zv1ioz+Ae' ')/A+,' ',K 
Vv 
(2 WORD («A 
TOM DICK HARRY 
DICK 
ANALYSIS: 
C1] Weis(NTH=+\' '=W)/W+DTMB,' ',K 


TOM DICK HARRY 
[1] Wet+(NTHs+\' '=W)/W+DTMB,' ',K 
a INITIAL BLANK 
TOM DICK HARRY 
C1) Weit+(NTH=+\' '=W)/W<DTMB,' ',K 
ee ey ar, TRAILING AND MULTIPLE BLANKS OUT 
TOM DICK HARRY 


[1] Weit(NTH=+\' '=W)/W*DTMB,' ',K 


TOM DICK HARRY 
C1) Weit¥(NTH=+\' '=W)/W<DIMB,' ',K 


=P we ome ow 


LOCATION OF ONLY BLANKS 


C1] We1i¥(NTH=+\' '=W)/W*+DTMB,' ',K 
teresa FIELDS NUMBERED 


114122222333 33 3 
Ci Weit¥(NTH=+\' '=W)/W*+DTMB,' ',K 

ON | COMPARED 
o000t4141414000000 
[1] Wel ¥(NTH=+\' '=W)/W*DTMB,' ',K 

De ee eee ae SELECTION 
DICK 
C1] Wei+(NTH=+\' '=W)/W*DITMB,' ',K 


Pe SD OP ee ED OD GED GRD GD CE Grn OE) GED aD Gee GED aE Gm GET we em oD OY ae am OE ae oe ee oe 


BLANK FIELD-MARKER DROPPED 
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ADJUSTDOWN EXTEND THE '|' IN REPORT FORMATTING | ROWINDICES |] 


SYNTAX: Z+A ADJUSTDOWN B 


a 


°o EXTENDS TO ROW A, THE CHARACTER '|' USED AS A SEPARATOR 
IN MATRIX B 
°o USHS: VIF VINDEX VROWINDICES VA 


FUNCTIONS: 


ne ae 


V Z2<«A ADJUSTDOWN B;C;D;0I0 


>+(02C*1itpD<BL((|4)-1)ROWINDICES Z<«B;])/0 A Q)T0O<1 


[2] L1 IF Cs3 
[3] D<+(0D)L133] 
C4] £41:20A;'|'INDEX Di<«'|' 
v 
V R<+N ROWINDICES M;O0I0 
[1] a FIRST OR LAST WN ROWNUMBERS OF MATRIX 
EXAMPLES: [2] R*«(R¥0)/R+NtittoM A Oro+1 
v 
E 
SALES 
1 2 3 4|ABCDE 
5 6 7 8|FGHIS 
9 10 11 12|KLMNO 
7 ADJUSTDOWN E 
SALES 
14 2 3 4|ABCDE 
5 6 7 8{|FGHId 
9 10 11 12|XKLMNO 
| 
ANALYSIS: 


LINK 1 PICKS OUT AND STORES IN D THAT PART OF MATRIX B WHOSE 
ROW NUMBERS ARE LESS THAN |A. 

LINES 2 AND 3 SELECT THE LAST 3 LINES OF D, WHERE LINE 4 LOCATES 
THE COMMON OCCURRENCE OF THE SEPARATOR '|\' AND EXTENDS 

THEM 1 LINE DOWNWARD. 
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Section II 


Report Formatting Functions 


ADJUSTUP EXTENDS '|' IN REPORT FORMATTING 
SYNTAX: Z+A ADJUSTUP B 


0 EXTENDS SEPARATOR '|' UP ONE LINE FROM ROW A 
IN MATRIX B. 
© USES: VIF VINDEX VROWINDICES VA 


FUNCTION: 


V Z+A ADJUSTUP B;C3D;0I0 | 
1] +0 IF 02C+«1itpD+BL((|A)-1+pB)ROWINDICES 2+B; Js O)T0+1 
[2] +L1 IF Cs3 
[3] D<+D(133] 
C4] £1:Z2CA3'| "INDEX Dj+'|! 
Vv 


Ce 


me cam ome ene eres 


1 2 3 4|ABCDE 
5 6 7 8|FGHIT 
9 10 11 12|XZMNO 
3 ADJUSTUP D 
SALES 


| 
1 2 3 4|ABCDE 
5 6 7 8|FGHId 
9 10 11 12|KLMNO 
1 ADJUSTUP 2 ADJUSTUP 3 ADJUSTUP D 
| SALES 


1 2 3 4|ABCDE 
6 7 8|FGHIS 
10 11 12|KZMWO 


on 


AWALYSIS: | | oe 
a LINE 1 PICKS OUT AND STORES IN D THAT PART OF THE ARRAY B WHOSE 
a ROW NUMBERS ARE GREATER THAN |A. | 
a LINES 2 AND 3 SELECT THE NEXT 3 (OR FEWER IF THERE AREN'T 3) LINES, 
a WHILE LINE 4 LOCATES ON THOSE LINES OCCURRENCES OF THE SEPARATOR '|! 
a AND EXTENDS THEM UPWARD 1 LINE. 


BARGRAPH PLOT HORIZONTAL INTEGER BARGRAPHS 


SYNTAX: RQ BARGRAPH V 
0 PRODUCE HORIZONTAL HISTOGRAMS OR GANTT CHARTS 
0 TWO CLASSES OF INPUT (CODED PLUS AND MINUS) TREATED, 
ONE INVISIBLE WHILE THE OTHER IS PLOTTED. 
o THE CHARACTERS USED FOR THE BARS ARE USER-SPECIPIED. 
° THE OUTPUT CAN BE CATENATED TO WAMES, FOR EXAMPLE. 
0 USES: VA 3 


Siw Tame ane Sean ‘min are omen 


V R+Q BARGRAPH V;0I0 
[1] a Q@ IS CHARACTER TO BE USED FOR BARS 
[2] a V IS A VECTOR OF POSITIVE AND NEGATIVE tnrrcers 
[3] a NEGATIVE INTEGERS STORED IN V WILL BE IGNORED 
C4] «@ THUS THE SAME VECTOR CAN BE USED TWICE 
[5] R+e( 24Q)CVo.214i1f /VJA OT0<0 

Vv 


‘etiae vents ovate Sees abe anaes Sante Some 


ANALYSIS: 'O'BARGRAPH 1 ~2 3 “4 5 
C5] Re(~24Q)[Vo.2t4+i1f/VIA OL0<«0 © 
2 BSS | os 

C5] Re(2tQ)[Vo.21+1f /VIA OI0<«0 


ree ee tt tee tee 


cs] Re" 24Q)LVe Bde 10/14 OI0+0 re Fee 
7 WIDTH DETERMINED 


123 4 5 | . 
[5] Re(atayCve.2teil/ via Oro+o | 
, Shee Pees, as NEGATIVES IGNORED 
1-0 O. 0:0 
00000 
146414 06 6 
00000 
1 2 a : 
[5] R+(~24Q)[Vo.214+1f/VIA OL0+0 
: _ BLAWK,Q 


[8] Re(“24@)Eve ates /7]a_ Oro+o 
| ~""""" SHAPE OF INDEXING 
0 MATRIX DETERMINES 


SHAPE OF OUTPUT. 


EXAMPLE: 
eel ae 'SHAPE'TOM JANE DICK MARY' )BESIDE('0'BARGRAPH- V )PILLS "0" BARGRAPH 4 


| 
| JANE |0o 
lobrceK|O00 | 
| MARY |oo0000| 
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BESIDE 


SYNTAX: 


PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 


Z+A BESIDE B 


CAN FORMAT A REPORT WITH ROW HEADINGS AND A SEPARATOR, 
OR SIMPLY JOIN TWO DISPARATE MATRICES. SEE VCCAT 
USES: VPREPARE VCOMPARE VIF VADDROWS 


V ZA BESIDE B3I3d 
[1] I«1+pA+PREPARE A 
[2] J+«1+pB«PREPARE B 
[3] +(L1,22,L0)IF I COMPARE J 
C4] LO:+L2 A B+(I-J)ADDROWS B 
[5] L1:A«(J-I)ADDROWS A 


[6] 22:2+A,'|',B 
v 
EXAMPLES: 
O+LM+' 'SHAPE ‘SIMPSON GERONIMO JONES LEGRAND! 
SIMPSON 
GERONIMO 
JONES 
LEGRAND 
AB+3 4 5 6 
O+NVM+?4 591000 
589 931 847 527 #92 
654 416 702 911 763 
263 48 737 329 633 
757 992 366 248 983 
LM BESIDE NM 
SIMPSON | 589 931 847 527 92 


GERONIMO | 654 416 702 911 763 
JONES | 263 48 737 329 633 
LEGRAND | 757 992 366 248 983 
AB BESIDE NM 
3| 589 931 847 527 92 
4] 654 416 702 911 763 
5]. 263 88 737. 329 633 
6| 757 992 366 248 983 
3 BESIDE NM 
| 589 931 847 527 92 
| 654 4416 702 911 763 
|. 263: 88 °737 329.633 
3| 757 992 366 248 983 
ANALYSIS: 
A LINES 1 AND 2 PREPARE THE ARGUMENTS FOR SIDE BY SIDE PLACEMENT. 
A NUMERIC ARGUMENTS ARE FORMATTED WITH AUTOMATIC WIDTH AND 
A NO DECIMAL POSITIONS IF INTEGER, 2 DECIMAL POSITIONS OTHERWISE. 
) ANY FRAMING ALREADY PART OF A CHARACTER ARGUMENT IS REMOVED. 
| VECTOR OR SCALAR ARGUMENTS ARE CONVERTED INTO ONE-ROW MATRICES. 
A LINES 3,4,5 CHECK THE NUMBER OF ROWS IN BOTH ARGUMENTS AND ADD THE 
A APPROPRIATE BLANK ROWS TO PAD OUT THE SMALLER. 
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BLANK DELETE SPECIFIC STRING FROM STRUCTURE [ LIM ] 


SYNTAX: R+STR BLANK A 
0 IF A REPORT, OR AWY STRUCTURE, CONTAINS UNWANTED ITEMS, 
NUMERIC OR CHARACTER STRINGS, THEN EVERY APPEARANCE OF THE 
SPECIFIED STRING WILL BE REPLACED BY BLANKS, OR BY ZERO, 
IF A IS A NUMERIC STRUCTURE. 
° USES VLOC VLIM VA 


Fain atthe inl Haren a 


V R*STR BLANK A 
[1] a IF STR APPEARS IN A IT WILL BECOME BLAWK(OR 0) 
[2] RL (x/pA)LIM(STR LOC R)o.+19,STR A OIO+0]*«0\''pA A R+,A 
[3] R+(pA)oR 


V 
V R<«N LIM A 
ee a RETURNS VALUES<N, ONLY 
EXAMPLES: E24 R<«(N>R)/R+,A 
V 
Bel]+242/16 
O0400° 2400 0.00 41.00 0.00 1.00 
'O0.00'BLANK B 
1.00 1.00 1.00 
B+O+3 4917 
0 1; 2 3 
yy 5 6 0 
1 2 3 y 
0 1 2 BLANK B 
0 0 0 3 
4 5 6 0 
0 0 3 y 
ANALYSIS: "AAA'BLANK'AAABBBAAA'! 
[2] RLCxX/pA)LIM(STR LOC R)o. tip OTK A UZO*0j«0\'"p A A R<«,A 


[2] RL (x/pA)LIM(STR LOC R)o.+19,STR A OL0+01<0\''pA A R+,A 


ee 


[2] RU (x/pA)LIM(STR LOC R)o.+1p,STR A QL0+01+0\''pA A Re,A 


AAABBBAAA 
[2] RL(x/pA)LIM(STR LOC R)o.+19,STR A OL0<01<«0\''pA A R+,A 


ate tale eam win cath eth com ate tte 


067 8 
[2] RL (*/pA)LIM(STR LOC R)o.419,S7R 8 OFO+O]*0\''pA A Red 
0 4 2 (NOTICE WRAP-AROUND...9,10 FALSE INDICES ) 
6 7 8 
7 8 9 
8 9 10 
[2] RU(x/pA)LIM(STR LOC R)e.+19,STR A OL0«0]+0\''pA A R+,A 


9 
[2] RU(x/pA)LIM(STR LOC R)eo.+1p,STR A OLO<0]<0\''pA A R+,A 


Se, al tk. ih a tina ah, nati se, ‘sl, lin) ah ae a,‘ ah sme: ep ah, ei, Sy. iii: 
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CENTERON CENTERS AND CATENATES TWO STRUCTURES [ CENTER |] 


SYNTAX: Z+A CENTERON B 


°o TAKES TWO CHARACTER ARRAYS OF ANY SIZE, CENTERS THE 
ONE WITH FEWER COLUMNS, THEN CATENATES A ABOVE B. 
°o USES: VIF VCOMPARE VADDCOLS VCENTER VON VPREPARE 


FUNCTIONS: 


V ZA CENTERON B;I 
[1] A<+tA A BB 
[2] +(L1,13,L2)IF 0 COMPARE I<( 1+pA)- 1t+pB 
C3] 21:+L3 A B<CENTER I ADDCOLS PREPARE B 
C4] 2£2:A+CENTER(-I)ADDCOLS PREPARE A 
[5)*\ £23:2+A ON B 
v VY Z+CENTER B;C 
4] C+NUMBLAWKCOLS Z+B 
ea Z«(f0.5x-/C)OZ 
V 


EXAMPLES: 
LV+'THIS IS A LITERAL VECTOR' 


LV 
THIS IS A LITERAL VECTOR 


LV CENTERON ‘HELLO! 
THIS IS A LITERAL VECTOR 
HELLO 


'SALES' CENTERON ‘REPORT FOR OCTOBER' 
SALES 
REPORT FOR OCTOBER 


ANA4LYSI8: 

A LINE 1 FORCES CHARACTER REPRESENTATION. 

A LINE 2 CHECKS THE NUMBER OF COLUMNS IN THE ARGUMENTS. 

A IF EQUAL, LINE 5 USES VON TO CATENATE THEM. 

A IF UNEQUAL, THE SMALLER IS PADDED OUT ON THE LEFT TO THE WIDTH OF 
A THE LARGER WITH VADDCOLS, THEN USES VCENTER TO SPLIT THE NUMBER 

A OF BLANK COLUMNS, PUTTING HALF ON THE RIGHT, BEFORE CATENATING. 

A VPREPARE MAKES ONE-ROW MATRICES OF VECTOR AND SCALAR ARGUMENTS. 
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CITED EXTRACT CITED STRINGS FROM CHARACTER ARRAYS 


SYNTAX: R«KV CITED A 


o STRINGS OF NON-BLANK INFORMATION, DEMARKED BY THE CHARACTERS 
PROFFERED AS KV, WILL BE EXTRACTED, SHAPED AS A MATRIX, 
AND SORTED. | 

° USES: VSHAPE VGRADEUP (AND GLOBAL VARIABLE “AV™) 


FUNCTION : 

V R<«KV CITED A 
[1] R+«' 'SHAPE(~ReKV)/R+«(#\ReKV)/R<.A 
[2] R«RLAV GRADEUP R31] 

V 


EXAMPLES: 

'C]'CITED'TOM [DICK] HARRY' 
DICK 

'+<'CITED'TOM+HARRY DICK+JANE' 
DICK 
HARRY 
ANALYSIS: 


‘exe cee ‘Sete Sree Gown Soot eae Beem 


"'LI'CITED'TOM LDICK JANE] HARRY' 
ie Re' 'SHAPE(~Re KV) /R«(#\REKV)/R+,A 


TOM (DICK JANE] HARRY 
[1] R<' 'SHAPE(~ReKV)/R<(4#\ReEKV)/R+,A 
aie OR ANY CHARACTER NOT IN TEXT 
[J 
[1] R<' 'SHAPE(~ReKV)/R<(4#\REKV)/R+,A 
ote LOCATED 
0000100 000000017000000 
Ca R<' 'SHAPE(~ReKV)/R<(4#\ReEKV)/R<+,A 
ee te er de ee Te EXTRACTED 
[DICK JANE 


[1] R+! 'SHAPE(~ReKV)/R«(#\ReKV)/R+,A 


1000000000 
[1] R«' 'SHAPE(~ReKV)/R+(#\ReKV)/R+,A 
Oe ie ee ee a 
ey Weel ae ee Ret Need are nek ee 


CLEANED AND SHAPED, 
DICK READY FOR SORTING 
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COLLECT COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES 


SYNTAX: R<«VV COLLECT CV 


oon Sees He pee ome omew 


°o VV AND CV ARE A PAIR OF NUMERIC VECTORS TO WHICH WE HAD 
BEEN CATENATING PAIRS OF CORRESPONDING DATA. 

o WE DESIRE TO REDUCE THE DATA BY COLLECTING AND SUMMING 
THOSE TERMS IN VV THAT ARE IN THE SAME CATEGORY, 
AS REPRESENTED BY REPETITION IN CV, THE CODE VECTOR. 

© THE CODE VECTOR, ALTHOUGH NUMERIC, MAY REPRESENT 
ALPHABETIC CHARACTERS. SEE VYVIUJNFORM IN KWIC INDEX. 

0 USES VDREP. 


FUNCTION: 
V R+VV COLLECT CV;3T 
C1] R+?,{COL0+0.5]((2*DREP CV)°e.=CV)+.xVVV 


EXAMPLE: 
O<I<+?11p6 

3414452314 5 2 3 (A RANDOM PATTERN OF OCCURRENCE) 
O<vVV+11799 

98 99 23 27 68 58 32 93 79 17 29 (TALLIES, CORRESPONDING TO CAR-CODES) 
(AV KFORM, 0. 14R),%0 14R*«VV COLLECT AV LJNFORM CARS[I;] 

PONTIAC 185 


BUICK 131 

CHEVROLET 116 (RE-TRANSLATED, FOR REPORTING PURPOSE) 
CADILLAC 106 

OLDSMOBILE 85 

ANALYSIS: VV COLLECT CV+?11910 


[1] R<7,COTO+0.5)]((T«DREP CV)°.=CV)+.xVV 


7 1647 90 89 58 30 9 24 7H 35 VALUES 
Ci] R«T,{OLO+0.5]((2+DREP CV)°.=CV)+.xVV 


10) 4 De Bd Bork, (S28. 7 CODES 

[1] ReP,(OL0+0.51((2+DREP_CV)°.=CV)+.xVV 

cS ae! an ae: es a REPLICATES DELETED 
[1] R<«T,COITO+0.513((7*«DREP CV)°.=CV)+.xVV 


HITS LOCATED 


mMooo0o0o0or 
WOoDDOOrRO 
COOOrR”O 


T+DREP CV)°.=CV)+.xVV 


54 2 
35 REDUCED AWD LAMINATED 


DREP SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 


SYNTAX: R<«+DREP V 


wee Sere eae tee Core Seem 


USEFUL IN PREPARING SPECIAL COLLATING SEQUENCES. 
RESULT CONTAINS SINGLE APPEARANCE OF EACH ELEMENT, 
NOT REARRANGED. 


V R+DREP V 
[1] R<((ViV)=19V)/V+<.V 
V 


EXAMPLE: 


DREP 12345 43 21 
123 4 5 


ANALYSIS: 
DREP'MISSISSIPPI' 

[1] R<((ViV)=1pV)/V 

MISSISSIPPI 

[1] R<((ViV)=19V)/V 

MISSISSIPPI 

[1] R<((ViV)=1pV)/V 

a4 

[1] R«((ViV)=19V)/V 

12345678910 11 

C1] Re ( (Viv )=1pV)/V 

MISSISSIPPI 

C1] Re((ViV)=1pV)/V 

gC B18 Be we G28. 2 .By:912 

C1] ReC(VaV) sip V/V 


1112000004100 


C1] Re((ViIV)=1pV)/V. 


ee ete rune cee ee eee dee cee ee eh ee ce ee oe 


MISP 
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HEADERON PUTS A HEADING OW A REPORT [ COMPARE J 


SYNTAX: Z+A HEADERON B 


o CENTERS A CHARACTER HEADING (LEFT ARG.) ON A REPORT 
(RIGHT ARG.), WITH AN EXTRA ROW OF BLANKS AND A 
SEPARATOR. HEADING MAY BE SCALAR, VECTOR OR MATRIX. 

°o USES: VPREPARE VIF VCENTER VADDCOLS VADDROWS VADJUSTUP 

VADJUSTDOWN YVYCOMPARE VA 


PUNCTIONS: 

VY 2+A HEADEROW B;:I3J7:0I0 VY Z+A COMPARE B 
[1] I« 1+tpA+PREPARE A A Q)TO+1 eke Z<+(xB-A)>0 1 0 
[2] J« 1+pB«+PREPARE B 9 
C3] +(21,22,L0)IF I COMPARE J 


C4] 20:*L2,pB+CENTER(J-I)ADDCOLS B 


[5] 21:A«CENTER(I-J)ADDCOLS A 
[6] 22:2+A,C11'_',£111 ADDROWS B 
[71 Z«(2+1tpA )ADJUSTUP(1+1+pA)ADJUSTDOWN Z 
V 
EXAMPLE: 
"SALES' HEADERON ?4 59100 
SALES 
52 32 99 50 27 
40 95 8 51 39 
28 92 53 47 95 


77° 78 83 13 
(2 89'DECEMBER REPORT ') HEADERON ?4 5p1000 
DECEMBER 
REPORT 


ce oaKeemamanmadcnsadann henmalamel anmeXemartermarhamnerlaa etna Rane Yene amnlenaticem feandieen Roe) 


842 270 416 538 468 


@ LINES 1 AND 2 PREPARE THE HEADING BY CONVERTING SCALARS AND VECTORS 
@ TO ONE-ROW MATRICES AND REMOVING ANY PREEXISTING FRAMING ELEMENTS. 

A THEY ALSO FORMAT THE RIGHT ARGUMENT. 

A LINES 3,4,5 CHECK THE WIDTHS OF THE ARGUMENTS AND CENTER THE HEADING 
Q@ LINE 6 ADDS THE SEPARATOR '_' AND AN EXTRA BLANK ROW. 

A LINE 7 ADDS THE FRAMING ELEMENT '|' WHERE NEEDED IN THE EXTRA BLANK 
© ROW TO PRETTY UP THE REPORT. MOST OF THE TIME IT WON'T BE NEEDED. 
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LJUST LEFT JUSTIFY ANY ARRAY [ DLB RJUST DL J 


NTAX R+V LIUST A 

o TO SHIFT SIGNIFICANT CHARACTERS OR NUMERIC VALUES TO 
LEFTMOST POSITIONS. 

o INSIGNIFICANT VALUES OR CHARACTERS ARE DEFINED IN V. 
THEY CAN BE TRUNCATED BY DT. (SEE DLB, BELOW) 

o RIGHT JUSTIFICATION IS THE REVERSAL OF LEFT JUSTIFICATION. 


he en ee — So 


V 


R+V LJUST A 


V R<«V RIUST A 


i R<(+/A\AEV)OA [41] R<hV LIUSTOA 
V ; V 
EXAMPLE: 
' 'ZJUST O<+3 509' TOM DICKHARRY' 

TOM 
DICK 
HARRY 
TOM 
DICK 
HARRY 
ANALYSIS: ' *?'LJUST A 
ieee R<(+/A\A€eV)OA 
*** TOM V R«QV DL V 
*kxkDICK [1] R<(~a\VeQV)/V 
*HARRY a WILL DELETE LEADING ELEMENTS 

a FROM A VECTOR. QV IS A QUOTED 

?BETTY A CHARACTER STRING OR A NUMERIC 
??2?MARY ea VECTOR THAT CONTAINS EXAMPLES 

JANE a TO BE DELETED. 
[1] Re(+/A\AeV)OA v 


?* 


[1] Re(+/A\AcV)OA 


a ES Oe 
pe come Cla © Baa 0 ae 6. Li] 
0 0 0 


V R*DLB K 
R<(-("149K).0/,+/V\' '#K)4K 
Vv 


= 
- 
Oo 


A A SPECIAL CASE TO DELETE LEADING BLANKS 
000 0 
1000 
407,070 
J Re (+/A\AeV 
a 2. 4 


gk. 2e, 52 
bai R<«(+/A\AEV)OA 


ee ee ee 


BETTY? 
MARY?? 34 
JANE | 


ON 


CONFORM AND CATENATE ANY STRUCTURES 


NAMES OR NUMBERS MAY BE ADDED TO LISTS OF ANY SHAPE 


OR CHARACTER, AT EITHER END. THE OUTPUT IS A MATRIX. 


NUMERIC MATRICES WILL BE PADDED WITH ZEROS IF THEY 
CHARACTER MATRICES WILL BE PADDED WITH BLANKS. 


USE VCENTERON IF LEFT-JUSTIFICATION IS NOT DESIRED. 


SYNTAX: Z+A ON B 
REMAIN NUMERIC. 
© ANY OPERAND MAY HAVE ANY STRUCTURE. 
° 
° USES: VCFORMAT VMATRIX 
FUNCTION: 
V Z+A OW B;0I0 
[43 CFORMAT 
[2] Z+( 1t+tpA+MATRIX A)l~14+pB+MATRIX B 
[3] Z2+(((1tp4A),2Z)+A),COLO<01]((1t9B),2Z)+B 
C4] Z+2'AABZ'[(2x04#p,B)+0%9,4] 
[5] a IN CASE OPERAND WAS EMPTY 
EXAMPLES: 
"a4'tOW 14 
14 
492 3 4 
FRAME 'HEADING'CENTERON 3 49112 
Wee be od wee | 
| HEADING | 
| f 2 3 | 
| 5 6 7 || 
| 9 10 11 | 


HEADING 


(BLANKS COUNT AS CHARACTERS) 
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OUTPUT CENTER HEADINGS OVER FORMATTED COLUMNS [ CNTR DMZ NEXTA |] 


SYNTAX: MAT<HEADINGS OUTPUT MATRIX 


° HEADINGS, A CHARACTER VECTOR WITH BLANK DELIMITERS, WILL BE 
CENTERED OVER THE APPROPRIATE COLUMNS, AND UNDERSCORED TO 
THE FULL WIDTH OF THOSE COLUMNS IN THE PREFORMATTED MATRIX. 
ANY HEADING TOO WIDE FOR ITS COLUMNS WILL BE NOTED. 

AN INSUFFICIENT NUMBER OF HEADINGS WILL CAUSE LENGTH ERROR. 
ONLY THE LEFTMOST HEADINGS WILL BE USED. 

USES: VDMZ VNEXTA VCNTR VWIDTH VDLB 

GENERATES A GLOBAL VARIABLE, B, WHICH CAN BE USED TO REDUCE 
(THEN EXPAND) THE RESULT BY ELIMINATING BLANK COLUMNS. 


o 0 0 0 090 


ee 


VY MAT+HEADINGS OUTPUT MATRIX;83;1343;43V3W3H;0I0 
fi] MAT+(14pMATRIX)p' ',S«(I<«~OI0+«1)pA4+HEADINGS 
[2] W<'B' WIDTH MATRIX 
[3] BACK:+((I=pW)V0=pH+NEXTA)/FINAL 
4] +(0#pA A S*+S,A<WLI<I+1ICNTR H)/BACK 
[5] +0,p0+'COLUMN WIDTH (',(*W),') TOO NARROW FOR ',H 
[6] FINAL:MATLB/ipBI1<S 
C7] MAT<+(MAT,[CO.1]B\' '),L1IMATRIX 
V 
V H<«W CNTR V 
Eat H<«(W2pV)/(-[0.5xW-p,V)OWtV 
Vv 
V R+«DMZ W 
E44 R+1i+¥(2ZV10Z+N#0)/N<+,0.N 


V WORD+NEXTA3L 
[1] WORD+(L+A\' '#4)/A*DLB A 
[2] A«(~L)/A 


EXAMPLES: 
A (SEE THE EXAMPLE FOR VAMORTIZE) 
'TOM DICK HARRY © °'OUTPUT 9 2¥MM 
ee ae. - ee : dee 
1.00 1000.00 87.92 79.58 8.33 
2.00 920.42 87.92 80.25 7.67 
3.00 840.17 87.92 80.94 7.00 


"ABERCROMBIE DICK HARRY © ©'OQUTPUT 9 2*MM 
COLUMN WIDTH (4 7 5 5 4) TOO NARROW FOR ABERCROMBIE 
A +__ OFFENDER 
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PAD PADS ARRAYS WITH BLANKS OR ZEROS 


SYNTAX: Z+P PAD X 


© PADS ARRAY X WITH BLANKS (IF LITERAL) OR ZEROS (IF NUMERIC). 
X CAN BE AN ARRAY OF ANY SHAPE AND TYPE. 

P IS A NUMERIC VECTOR SPECIFYING THE AMOUNT OF PADDING IN 
EACH DIMENSION OF X ( OR THE LAST oP). 


o THE SENSE OF PADDING (RIGHT OR LEFT), (BOTTOM OR TOP), ETC., 
IS DETERMINED BY THE SIGNS OF THE ELEMENTS OF P JUST AS WITH 
THE TAKE FUNCTION (+). IF P IS NOT LONG ENOUGH TO MATCH THE 
RANK OF X, PADDING IS DONE ONLY FOR THE LAST pP DIMENSIONS. 
THIS FUNCTION IS UNLIKE THE TAKE FUNCTION IN THAT THE 


KNOWLEDGE OF THE DIMENSIONS OF X. 


V Z<*«P PAD X 
C1] Z<(((Z=0)4+xZ+Zt+P)x(Z41,0X)+/(2+-10 pox) +P) +X 


Vv 
EXAMPLES: 
3 PAD 4 “1 ~20 PAD 3 3p'ABC! 
400 0 
- ABC 
8 PAD ‘'ABCD' ABC 
ABCD ABC 
“3 PAD 2 4018 12 PAD 2 2 4p116 
0 0 014 2 3 4 1 ye) 3 4 0 0 
0 0 0 5 6 7 8 5 6 7 8 0 0 
0 ) 0 fe) 0 0 


0 0 0 141 2 3 4 G. 20° <1: 22 0 0 

oO 0. 0 &§ 6&6 7 8 13 14 15 16 0 0 

OF. 2, 05! QO: <0: 1G 0 0 0 0 0 0 
ANALYSIS: 


| | ABSOLUTE VALUE OF PADDING 
| DIMENSION VECTOR OF X 
SIGN OF PADDING 
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PREPARE STANDARDIZE STRUCTURE FOR REPORT FORMATTING [ Led 


SYNTAX: Z+PREPARE A 


o A SUBROUTINE THAT NORMALIZES DATA FOR THE FORMATTING 


FUNCTIONS: 


°o USES: 


FUNCTIONS: 


V Z<«PREPARE A 


[1] +L1 IF ~CHARACTER A 
[2] +0 IF O=FRAMETEST Z<«MATRIX A 


[3]. +0,p2Z«1 14 1 142 
[4] £21:2<TABULATE A 
Vv 


PREPARE X 


OPREPARE X 


PREPARE Y 


Z 
2 3 4 
5 6 7 8 
9 20. 21 22 
PREPARE Z 
1 2 3 4 
oO si 28 
9° 40:..44 12 
OPREPARE Z 
3.12 


THEN FORMATS IT. 


DvD DDDD 


VBESIDE VCENTERON VHEADERON 
VCHARACTER VFRAMETEST VMATRIX VTABULATE VIF 


V R«e A IF B 


[1] R<«B#A 


V 


LINE 1 BRANCHES TO LINE 4 IF THE ARGUMENT IS NUMERIC. ‘TABULATE' 


LINES 2 AND 3 TAKE THE ARGUMENT, WHICH IS MADE INTO A MATRIX, AND 
EXAMINE IT FOR FRAMING ELEMENTS ON THE PERIPHERY OF THE ARRAY. 
THESE ARE REMOVED IF PRESENT. 
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TABULATE NUMERIC STRUCTURES IN CONTROLLED FORMAT [{ HANG ] 


SYNTAX: Z*+TABULATE A 


°o A MUST BE A NUMERIC STRUCTURE. TABULATE WILL DIAGNOSE 
THE DOMAIN ERROR IF If IS NOT. THE STATE INDICATOR 
WILL BE PRESERVED FOR ANALYSIS. THIS IS BETTER THAN TO 
ESCAPE FROM THE CALLING FUNCTION WITH NO TRACE. 

SEE VESCAPE. 

RETURNS FORMATTED NUMERIC MATRICES. 

ANY FRACTIONS PRESENT WILL FORCE TWO DECIMAL PLACES. 
VECTORS WILL BECOME ONE-COLUMN MATRICES. 

USES: VINTEGER VMATRIX VCHARACTER VHANG 


oo Oo 8 9 


FUNCTIONS: 


a 


V Z<TABULATE A 
Li] "A IS NOT NUMERIC'HANG CHARACTER A 
[2] Z<«(2x~INTEGER A)FQMATRIXYA 
V 
V MSG HANG CONDITION 
Pad SAHANG+<0O 


EXAMPLES: [2] +0 IF~CONDITION 
[3] MSG 
TABULATE 2 3p16 C4] SAHANG<QLC+1 
12 3 [5] a INSPECT STATE INDICATOR 
4 5 6 [6] a CHECK DOMAIN OF VALUES 
TABULATE 2 3p016 V 


3.14 6.28 9.42 
4257 25 -74-18..85 
TABULATE 13 
4 
2 
3 


TABULATE ‘ABC! 
A IS NOT NUMERIC 
HANGL5] 
THE PROGRAM HAS STOPPED FOR INSPECTION 
OF THE INPUT DATA AWD ITS POSSIBLE SOURCE. 
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Section III 


Workspace Management Functions 


LISTFN LISTS A FUNCTION IN STANDARD FORM 


SYNTAX: R<LISTFN FN 


© RETURNS A CHARACTER MATRIX WHICH APPEARS TO BE A LISTING 
OF THE FUNCTION WHOSE NAME, IN QUOTES, IS THE ARGUMENT. 
IT CONTAINS V'S, STATEMENT NUMBERS, AND EXDENTED LABELS 
AND COMMENTS. 

o AN EMPTY MATRIX IS RETURNED FOR NON-EXISTENT AND LOCKED 
FUNCTIONS. 


V 2ZQQ+LISTFN XQQ;FQQ;0I0 


C1] OLO+1 
[2] >+(0=1+pZQQ<0CR XQQ)+0 
C3] ZQQ~+e(OFX 5 OVOCR'LISTFN'),' ZQQ' 
C4) +0 
C54 Z+FQQ A3B3N 
C6] N+ 1+pB<(AL31]='at )VB\(+/V\BAZ)>+/v\ ttt t=(Bev/ZeAz=':') FA 
C7] Z<Nt+((WL9)92),C OF 90LW-9)p1 
C8] 2eCG"- Sebi itl? 2603- 0OFCN Jot)" ,BO" AD fa 1* 
[9] Z01,N+23;5]<«'V'! 
V 
EXAMPLE: 
VTEST(OIV 
V TEST 
1] A+13 
[2] aCOMMENT 
C3] 2£1:'#FND! 
Vv 
O<Q+LISTFN 'TEST! 
VY TEST 
[1] A+<i3 
[2] aCOMMENT 
[3] L£1:'#FND' 
Vv 
oQ 
5 14 


NOTES: THE TECHNIQUE USED HERE ILLUSTRATES A METHOD OF DEALING WITH THE 


PROBLEM OF NAME-SHADOWING IN APL: ACCESS TO GLOBAL OR SEMI-GLOBAL 
OBJECTS IS INHIBITED IF IDENTICAL LOCAL NAMES OCCUR IN AN ACTIVE 
FUNCTION. TO AVOID THIS IN SITUATIONS WHERE ACCESS TO GLOBAL OBJECTS IS 
NECESSARY, SOME PROGRAMMERS USE HIGHLY IMPROBABLE NAMES SUCH AS THE 2QQ, 
XQQ AND FQQ USED HERE. THIS IN TURN MAKES THE CODE HARDER TO UNDER- 
STAND AND MAINTAIN. THE METHOD USED HERE IS A COMPROMISE. IMPROBABLE 
NAMES ARE USED TO OBTAIN DATA TO PASS TO A LOCAL FUNCTION WITH “GOOD™ 
NAMES. LINE 3 CREATES AND EXECUTES THIS LOCAL FUNCTION, WHICH IS 
“DEFINED” IN LINES 5 THROUGH 9 OF LISTFN. 
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PROMPT PROMPT AND CHECK TERMINAL ENTRY OR ELSE DEFAULT 


SYNTAX: R«DEF PROMPT MSG 


ey 


° PROMPT CAN EXAMINE KEYBOARD ENTRY, AND EITHER ACCEPT IT 
UNCRITICALLY, RETURN A SPECIFIED DEFAULT CHARACTER VECTOR, 
OR, IF NUMERIC VALUES ARE REQUESTED, WILL CHECK THE 
CHARACTER SET USED, AND CAN CHECK FOR THE SPECIFIED LENGTH. 

° MSG IS A CHARACTER STRING, I.E., THE PROMPTING MESSAGE 

© DEF, IF CHARACTER, IS THE DEFAULT CHARACTER STRING, OR '! 

IF A SCALAR NUMERIC VALUE, MN: 
WILL ACCEPT ANY NUMERIC VECTOR IF N=0 
WILL REJECT VECTOR UNLESS N=pVECTOR 
IF AN INTEGER VECTOR, V, WILL ACCEPT A NUMERIC 
VECTOR IF ITS LENGTH IS ONE MEMBER OF V. 
© USES: VCHARACTER VEMPTY VIF VA 


V R«<DEF PROMPT MSG;3Jd:K 
(a) >0 IF O0=09,DEF A J+R<RVMA R<o .M<MSG 
f2] >0 IF CHARACTER DEF A R+R,(0=09,R)/tDFEF 
[3] WSCREEN:*FRR IF~(~EMPTY K)AA/K<Je' ~.0123456789F! 
[4 +0 IFV/DEF=(DEF>0)xp ,R<«od 
[5] ERR:71 A («'NOT EXACTLY ',¢((V/DEF>0)/tDEF’,' NUMRER' ,‘vV/DEF>1)/'S' 
C6] A CHARACTERS MAY BE ADDED OR DELETED FROM NSCREEN 
V 


OPROMPT'THE AGES OF THE MEMBERS OF YOUR FAMILY, IN DESCENDING ORDER..' 


THE AGES OF THE MEMBERS OF YOUR FAMILY, IN DESCENDING ORDER..54 43 22 16 
54 43 22 16 
3PROMPT'THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS. 
THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS..3 13 
NOT EXACTLY 3 NUMBERS 
THE MONTH DAY YEAR OF YOUR BIRTH, AS NUMBERS..3 13 1954 
3 13 1954 
2PROMPT'GIVE ME TWO NUMBERS..' 
GIVE ME TWO NUMBERS... 14 1.234EF56 
“44 41.234F56 
1PROMPT'AN EXAMPLE OF A SCALAR NUMERIC VALUE: ! 
AN EXAMPLE OF A SCALAR NUMERIC VALUE: ASDF 
NOT EXACTLY 1 NUMBER 
AN EXAMPLE OF A SCALAR NUMERIC VALUE: “1 
1 
ae ANOTHER. 
ANOTHER... 
0 
'NO RESPONSE'PROMPT'WHAT IS YOUR NAME? ! 
WHAT IS YOUR NAME? 
NO RESPONSE 
2 3 PROMPT'GIVE ME TWO OR THREE NUMBERS...' 
GIVE ME TWO OR THREE NUMBERS. 
NOT EXACTLY 2 3 NUMBERS 
GIVE ME TWO OR THREE NUMBERS...77 6 
77 6 
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STATUS 


CURRENT SESSION AND WORKSPACE STATUS 


[ NOW } 


o DISPLAYS DATE, TIME, CPUTIME, AVAILABLE SPACE, SUSPENSIONS 


SYNTAX: STATUS 
FUNCTIONS: 
V STATUS 
[a NOW 
[2] 'CPUTIME THIS SESSION: ',(¥0.001x1t140AlI),' 
C3] 'SPACE LEFT: ',(*0WA)," BYTES' 
C4) "FUNCTIONS SUSPENDED: ',¥ 1+p0LC 
V 
Vv R<«NOW 
C1] R+«('/'FILES¥100(163+07S),! 
Vv 
EXAMPLES: 
STATUS 
7/7/77 17:20:20 


CPUTIME THIS SESSION: 8.117 SECONDS 
SPACE LEFT: 404708 BYTES 
FUNCTIONS SUSPENDED: 0 


SECONDS! 


"o's "PILLS ~14+3+07S 
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TABS COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO ] 


SYNTAX: TABS 


o AN UPCOMING REPORT MAY REQUIRE SPECIAL TAB SETTINGS. 

o THE TERMINAL USER CAN BE PROMPTED TO VERIFY THE CORRECTNESS 
OF THE EXISTING TABS BEFORE CONTINUING WITH THE REPORT. 

o SEE VTCC, PAGE 44 


FUNCTIONS: 
V TABS ;X;Y 
Ci] a VISUAL CHECK OF REQUIRED AND ACTUAL TABS 
[2] "NONE REQUIRED.' ESCAPE EMPTY Q)AT,i10I0<0 
[3] "IMPOSSIBLE. CORRECT OHT OR OPW' ESCAPE~A/(OPW2UAT) ,OATe1129 
C4] "TABS REQUIRED: (LEFT MARGIN AT ZERO)' 
[5] "s4' (X<(1¥<1+f /OAT)eOHXT] 


[6] 0 COLNO Y 
[7] (1¥X)\'t! 
[8] 5pIDLC 
[9] "EXISTING TABS, INDICATED BY +. CLEAR AND SET AS REQUIRED.' 
V 
VY R«FROM COLNO T0;0I0 
[1] R+ 104 10 10 TFROM+1(129L70)-FROM-~f)I0+0 
V 


EXAMPLES: 


NONE REQUIRED. 
OAT<11 33 55 
TABS 
TABS REQUIRED: (LEFT MARGIN AT ZERO) 
eee wes wae t eeoeeee?#¢* bb eee’ ele. where teh ele ww (a vere: ele eeeeees#2e Sieve © evel etewy 
00000000001111111117 2222 2222223393333933334HUH4UNNHNYNS 55555 


- 01234567890123456789012345678901234567890123456789012345 


4 i t 


EXISTING TABS, INDICATED BY +. CLEAR AND SET AS REQUIRED. 
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TCC SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 
SYNTAX: Z+BKSP Z+CRITN Z+IDLC Z<LNFD Z+TABC 
2 IN EACH CASE IS ONE BACKSPACE, CARRIAGE RETURN, IDLE, 
LINE FEED, OR TAB CHARACTER, IF THAT CHARACTER EXISTS 
IN THE ATOMIC VECTOR (OAV) IN THE APL SYSTEM YOU ARE 
USING. THE CHARACTERS ARE STORED AS THE GLOBAL VARI- 
ABLES BK, CR, ID. LN, AND TB FOR RAPID ACCESS. THESE 
FUNCTIONS DEPEND ON THE SPECIFIC CONFIGURATION OF DAV 
IN THE VARIOUS APL SYSTEMS TO DATE. EACH FUNCTION 
ASSUMES THAT AT LEAST ONE ELEMENT OF QAV IS UNIQUE: TO 
EACH SYSTEM. 
KNOWN EXCEPTIONS: THE TAB AND IDLE CHARACTERS DO NOT 
EXIST IN VS APL DAV. IDLC WILL DELIVER THE © CHAR- 
ACTER; TABC THE >. 
FUNCTIONS: EXAMPLES : 
V Z+BKSP 'O' ,BKSP,'+' 
C1] >(o#ONWC'BK')/A1 EI 
[2] BK<OAVCOIO+158 200 41f'er'iOAVLOT0+7314)) 
[3] A1i1:Z<BK 
Vv 
VZ<+CRIN ‘At SORT BR 
ba >(O#0NC'CR')/A1 A 
[2] CR<+ODAVLOITO+156 202 73C'er'iODAVLOITO+7344)) B 
[3] A1i:2Z<CR 
V 
V Z+IDLC 'A', IDLC,'B' 
[1] >(O#0NC'ID')/A1 AB 
[2] ID+OAVCOI0+163 194 64L'er'iOAVLOLT0+73I1)) 
[3] A1i1:2Z«Ip 
Vv 
V Z<LNFD 'A', LNFD,'B' 
C1] >(O#0NC'ZLN')/A1 A 
[C2] EN+OAVCOI0+159 201 169[C'er'i1ODAVLOL0+73I14) B 
[3] Ai:2Z<LN 
Vv 
V Z+TABC 'A',TABC,'B!* 
[1] >+(O40NC'TB')/A1 A B 
C2] TB<ODAVCOIO+162 185 192C 'er'iQAVLOL0+7344) 
C3] A1:Z<7B 
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TIME RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT { ALT J 
SYNTAX: TIME STMT 
o BXECUTES THE APL STATEMENT IN THE QUOTED CHARACTER 
STRING, STMT. DISPLAYS ITS RUNNING TIME AND NEW SPACE. 
o DIFFERENT WAYS OF PERFORMING THE SAME FUNCTION OR 
EQUIVALENT OPERATION CAN BE COMPARED. 
o LANGUAGE ELEGANCE, CLARITY, AND MAINTAINABILITY SHOULD 
BE WEIGHED IN JUDGMENT AGAINST TIME AND SPACE USAGE. 
o ZERO SPACE MAY BE REPORTED IF THE VARIABLES HAD BEEN 
NAMED EARLIER IN THIS WORKSPACE AND WERE SUFFICIENTLY 
LARGE AT THAT. TIME. 
o TRAFFIC ON THE HOST MACHINE MAY CAUSE TIMING TO VARY 
SLIGHTLY. TIME YOUR STATEMENTS MORE THAN ONCE, THEN 
AVERAGE THE RESULTS. 
© TEMPORARY STORAGE IS NOT MEASURED, ALTHOUGH IT MAY BE 
SIGNIFICANTLY LARGE, E.G. OUTER PRODUCTS. 
FUNCTIONS: 
V TIME STMT;3E3Z 
[1] aHOW MUCH TIME/SPACE DOES AN APL STATEMENT USE? 
[2] 'FtALT STMT 
[3] Z<(1t1+0AT) OWA 
C4] EF 
[5] (ep 7+(14+440AlT)-142Z),' MSEC ',(¥( 14Z)-48+0WA),' BYTES! 
[6] a + CHANGE TO.~6, FOR EXAMPLE, IF ADJUSTMENT NEEDED. 
Vv 
V WAME ALT EXP3d 
C41] J<+OFX NAME OW EXP 
[2] aINTRANSITIVE SYNONYM 
Vv 
EXAMPLES: 


oe oe 


TIME ‘'Z«11000! 


1 MSEC 24 BYTES 


TIME 'Z<Z-7' 


O MSEC 0 BYTES 
a NOTICE THAT SOME APL SYSTEMS KEEP AN ARITHMETIC PROGRESSION VECTOR 


@ STORED IN COMPACT FORM AS LONG AS POSSIBLE. WHEN WE SQUARE IT: 
TIME 'A+«Zx*2' 


8 MSEC 392 BYTES 


A ..-WE SUDDENLY SEE STORAGE BEING ALLOCATED 

a FOR IT SINCE IT CAN WO LONGER BE STORED MERELY AS 

a STARTING POINT, STEP, AND LENGTH. FOR TIMING, COMPARE: 
TIME '"B<ZxZ' 


10 MSEC 392 BYTES 


9 SURPRISINGLY, Z2*Z SEEMS TO TAKE LONGER THAN Zx2. 

a TIMING AND STORAGE COMPARISONS MAY WELL BE DIFFERENT 

8 ON DIFFERENT APL SYSTEMS. THE 5110 DOES NOT SUPPORT QAI. 
TIME '"'! 


O MSEC O BYTES 


© IF THE RESULTS OF TESTING THE PREVIOUS NULL STATEMENT WERE 
a NOT 0 0, ADJUST THE CONSTANTS IN LINE 5 OF THE APL FUNCTION. 
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VARS 


SYNTAX: 


VARS 
VARS 
VARS 
VARS 


OORR 


FUNCTION: 


DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 


R+B VARS K 


o IN THE AUTOMATIC PRODUCTION OF APPLICATION DOCUMENTATION, IT 
IS OFTEN DESIRED TO DISPLAY ALL VARIABLES, OR ONLY THOSE OF 
PARTICULAR INITIAL CHARACTERS. 

°o WHEN THESE STRUCTURES ARE TOO LARGE TO BE DISPLAYED, 

THETR CHARACTERISTICS ONLY, MAY BE REQUESTED. 


" WILL DISPLAY EVERYTHING 

ies eee WILL DISPLAY ALL VARIABLES WITH INITIAL Z 

ah WILL DISPLAY CHARACTERISTICS ONLY OF ALL VARS 
'eexXyZ''* FOR CHARACTERISTICS OF VARS INITIALLY e'xXyz' 


© USES: VDLTMB VIF VLOGICAL VINTEGER VFLOATING VCHARACTER VEMPTY 
VGRADEUP VIS ALF 


V R«B VARS K3I;7;0I0 


[1] a LOCAL 


OR GLOBAL VARIABLES AND THEIR CHARACTERISTICS 


[2] +(0=1tpR+Rl e'ALF GRADEUP R+«',K,'ONL 2';1)/~Or0+1 


C3] K+ 8 1 
L4uJ BACK:I< 
[5] tt 


OtUICR'VARS' 
C14) IF( LOGICAL J),(INTEGER J),( FLOATING J),CHARACTER J<+2Rl1; ] 


[6] +EMP IF EMPTY J 


Eva Rede hy 
[8] @B/RU1 


et BS ',DLTMB(.KLZ3:1),.(,.XCOLTO+4+9p731),(04pp7)/'OF SHAPE ' tod 
3 J 


[9] FWD:+(0#1+pR<1 04R)00,BACK 

[10] EMP:+FWD,pU0+R[1;],' IS EMPTY' 

[11] a THE FOLLOWING IS NEVER EXECUTED. 
[12] LOGICAL 

[13] INTEGER 

[14] FLOATING 

[15] CHARACTER 


[16] SCALAR 
[17] VECTOR 
[18] MATRIX 
[19] ARRAY 


0 VARS 


trtpgpirt 


R IS CHARACTER MATRIX OF SHAPE 47 76 


T IS CHARACTER VECTOR OF SHAPE 12 


[fT IS EMPTY 
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Section IV 


Multiprecision Arithmetic Functions 


ADD 


SYNTAX: 


Se ee ere ee ae Sete 


FUNCTION: 


V C+A ADD B 


MULTIPRECISION INTEGER ADDITION 


C<+A ADD B 


ADD A TO B, GIVING C, USING MULTIPRECISION INTEGER 

ARITHMETIC (I.E. TRUNCATING ALL RESULTS TO MP INTEGERS) 

A AND B ARE NUMERIC VALUES. 

THEY MAY BE: INTEGER OR FLOATING POINT, OF EITHER 
ORDINARY OR EXTENDED PRECISION. 

C WILL BE A MULTIPRECISION INTEGER (ZERO EXPONENT ) 

AN EXTENDED PRECISION NUMBER, INTEGER OR FLOATING POINT, 

IS REPRESENTED BY AN INTEGER VECTOR OF CONSECUTIVE 1-7 

DECIMAL DIGIT SEGMENTS, THE FIRST OF WHICH IS THE EXPONENT, 

ZERO FOR INTEGERS. ALL: SEGMENTS HAVE THE SAME SIGN, WITH 

THE EXCEPTION OF THE EXPONENT.(SEE VFADD). LEADING ZEROS 

ARE ELIMINATED. 

USE VFIX TO CONVERT A NUMERIC VARIABLE TO MP INTEGER FORM. 

THE MULTIPRECISION INTEGER ARITHMETIC PACKAGE COMPRISES: 

VADD VSUB VMUL VDIV VSQRT VFIX VCAN VROUNDS 

FUNCTIONS OF THE MULTIPRECISION INTEGER 

ARITHMETIC PACKAGE ARE USED BY THE MULTI- 

PRECISION FLOATING POINT ARITHMETIC PACKAGE 

USES: VFIX VCAWN 


[1] aMULTIPRECISION INTEGER ADD 
[2] C«CANO(CHOA )+(C*(pA<FIX A)I pB)tOB<FIX B 


V 


EXAMPLES: 


0 1 2345678 9012345 6789012 


B 


0 222 3333333 4444444 


A ADD B 


0 1 2345901 2345679 1233456 


A ADD 3 


O 1 2345678 9012345 6789009 
640 0 0 ADD ~1 
0 9999999 9999999 93999999 
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ALPREC ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 


SYNTAX: Z<N ALPREC X 


0 FOR X A SCALAR OR MULTIPRECISION INTEGER OR FLOATING POINT 
NUMBER OF PRECISION M (I.E. (oX)=M+1), Z WILL BE SET TO THE 
FLOATING POINT NWUMBER OF PRECISION M+N WHOSE VALUE IS THE 
SAME AS OR TRUNCATED FROM THAT OF X. (SCALARS HAVE 
IMPLICIT PRECISION 3.) 

o IN BRIEF, X IS EXTENDED ON THE RIGHT WITH ZEROES (IF N>0O) 
OR TRUNCATED ON THE RIGHT (IF W<0). THE EXPONENT (1+X) IS 
INCREASED BY N TO COMPENSATE. 

o SINCE ALL THE FUNCTIONS IN THE MULTIPRECISION FLOATING 
POINT PACKAGE DETERMINE THE PRECISION OF THE RESULT FROM 
THE PRECISIONS OF THE INPUT, IT IS OFTEN NECESSARY TO 
INDICATE THE PRECISION OF SOME EXACT QUANTITY (SUCH AS AN 
INTEGER) SO AS NOT TO CAUSE INVOLUNTARY SHORTENING OF 
PRECISION. SEE THE EXAMPLES BELOW. 

© DECREASING THE PRECISION OF A NUMBER (BY USING NEGATIVE N) 
MAY OCCASIONALLY BE NECESSARY IF THE RESULT OF AN INTER- 
MEDIATE CALCULATION IS ASSIGNED A SPURIOUSLY HIGH 
PRECISION BY ONE OF THE ARITHMETIC FUNCTIONS. 

°o USES: VFLOAT 


FUNCTION: 

V Z<«N ALPREC X 
[1] INCREASE THE PRECISION OF X BY N (OR DECREASE IF N IS NEGATIVE). 
C2] Z«(-N-14X),14((9.X)+N*N[ 2-9,X)tX« FLOAT X 

V 


EXAMPLES: 


“5 76543 2109876 5432109 8765432 1098765 
FORMAT D 
0.0076543 2109876 5432109 8765432 1098765 
FORMAT 1 FDIV D 
130.6451593 9386058 9254313 
a NOTE THE LOSS OF PRECISION. 
a INSTEAD, ONE, WHICH WE KNOW IS EXACT, MUST BE ASSIGNED 
a9 A PRECISION AT LEAST AT GOOD AS THAT OF THE NUMBER D. 
O<ONE<+5 ALPREC 1 
“TL OO. O° 0 05 020 
O<Z<ONE FDIV D 
~5 130 6451593 9386058 9254312 9891047 5895018 
FORMAT Z 
130.6451593 9386058 9254312 9891047 5895018 
a SIMILARLY, WE CAN AVOID A LOSS OF PRECISION IN ADDITION, HERE: 
O<Z<1 FADD D- 
“2 1 76543 2109876 
a AND THE RIGHT WAY, USING THE PREPARED ONE: 
FORMAT Z<ONE FADD D 
1.0076543 2109876 5432109 8765432 1098765 
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CAN EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT 


SYNTAX: Z*+CAW A 


o INPUT A IS EDITED INTO THE CANONICAL MULTIPRECISION 
INTEGER FORMAT AS DESCRIBED UNDER FUNCTION ADD 

°o THIS FUNCTION IS USED BY EVERY OTHER FUNCTION 
IN THE MULTIPRECISION INTEGER AND FLOATING 
POINT ARITHMETIC PACKAGES, EXCEPT VROUNDS. 

° USES: VROUNDS 


V Z2<CAN A3S53L 
(4.3 AaEDIT A MULTIPRECISION INTEGER INTO CANONICAL FORM 
[2] Z+1 ROUNDS A 
[3] APROPAGATE CARRIES LEFTWARD 
C4] Z1:Z+«(S,0)+0,2-10000000xS+«(xZ)xL|Z#10000000 
[5] +(vV/0#S)/L1 
[6] ADROP LEADING ZEROES (BUT PREVENT 0710) 
Era L2:>(1=92Z<(((0# 142)11)-020)4¥2Z)/L3 
[8] AaMAKE ALL TERMS (EXCEPT THE EXPONENT) THE SAME SIGN 
[9] >+(ev/S<+(-L<145)=S+xZ)/L3 
[10] +L2,92+Z+(Lx10000000xS)+(1+-LxS),0 
[11] 23:2+«0,2 
Vv 


EXAMPLES: 
_ A 

0 1 #2345678 9012345 6789012 
B 

0 222 3333333 4444444 5555555 
A+B 

0 221 987655 4567901 1233457 
CAN A+B 


0 221 987654 5432098 8766543 
CAN 123456789012345 

0 1 2345678 9012345 
CAN 7.8 

0 8 
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DIV MULTIPRECISION INTEGER DIVISION 


SYNTAX: C+A DIV B 


o DIVIDE A BY B, GIVING C, USING MULTIPRECISION INTEGER 
ARITHMETIC. A AND B MAY BE IN ANY NUMERIC FORMAT. 

o SHEE THE DESCRIPTION UNDER VADD. 

o THE REMAINDER OF THE DIVISION IS LEFT IN GLOBAL 
VARIABLE REM 

°o USES: VADD VSUB VMUL VFIX VCAN 


FUNCTION: 
V C+A DIV B:3Q;37 
[1] AMULTIPRECISION INTEGER DIVIDE WITH REMAINDER 
[2] +(24pB<+FIX B)/L2 
[3] AaSPECIAL CODE FOR SPEED IF B IS SCALAR 
C4] +C«(2x(Beit+B)=1t+REM<0,1+A+FIX A)po 
[5] 2£1:C+C,Q<L(7T+10000000LREM,1+A)+B 
[6] REM+«0,T7-QxB 
C7] +(0<pA<14A)/Z1 
[8] >+0,pC*+CAN C 
[9] 22:REM+A<FIX A 
[10] +(BA.='"'oC<0 0)4+Z4,0 
[11] 23:Q+CAWL(10000000134REM )#10000000124B 
[12] C<«C ADD Q«(~1+(9Q)+(pREM)-pB)+Q 
[13]  REM<«REM SUB B MUL Q 
[14] L4:+(x(pREM)-9B)+L3,0 
[15] 3+L3x(|142+REM)>|1+2+B 


V 

EXAMPLES: 
A 

0 1 ~2345678 9012345 ~6789012 
B 

0 222 3333333 444uyHY 
A DIV B 

0 55528 
REM 

0 46 4327157 4297420 
B DIV A 

0 0 
REM 

0 222 3333333 444yH4yY 
A DIV 0 


0 0 (DOMAIN ERRORS PREVENTED, AS IW VCDIV) 
0140000 DIV 7 

O 1428571 4285714 2857142 8571428 
REM 

0 4 
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FADD MULTIPRECISION FLOATING POINT ADDITION 
SYNTAX: C+A FADD B 
o A AND B ARE NUMERIC VARIABLES. “ 
THEY MAY BE: INTEGER OR FLOATING POINT OF EITHER 
ORDINARY OR EXTENDED PRECISION. 
o THE RESULT WILL BE MULTIPRECISION FLOATING POINT. 
o A MULTIPRECISION FLOATING POINT NUMBER HAS THE SAME FORMAT 
AS A MULTIPRECISION INTEGER (I.E. INTEGER VECTOR; SEE 
DESCRIPTION UNDER VADD). THE LEADING INTEGER (EXPONENT) 
INDICATES HOW MANY 1-7 DIGIT ELEMENTS FROM THE RIGHT END OF 
THE NUMBER THE DECIMAL POINT BELONGS. IF NEGATIVE, MOVE <«. 
°0 WUMERIC VARIABLES OF ANY FORMAT MAY BE CONVERTED INTO 
MP FLOATING POINT BY THE FUNCTION FLOAT. 
o THE PRECISION OF A MULTIPRECISION FLOATING POINT NUMBER 
IS INDICATED BY ITS LENGTH, AND ALL MULTIPRECISION 
FLOATING POINT OPERATIONS SET THE LENGTH OF THE RESULT 
ACCORDING TO THE PRECISION OF THE OPERANDS. IWN 
PARTICULAR, THE RESULT OF AN ADD OR SUBTRACT HAS 
A PRECISION SUCH THAT ITS LEAST SIGNIFICANT ELEMENT IS 
GOVERNED BY THE SIGNIFICANCE OF THE OPERAND OF GREATER 
MAGNITUDE. 
o THE MULTIPRECISION FLOATING POINT ARITHMETIC PACKAGE 
COMPRISES: VFADD VFSUB YFMUL VFDIV VFLOAT VFSQRT 
VFEXP VPI VYALPREC VFORMAT VSCALE 
o FADD USES: VFLOAT VADD 
FUNCTION: 
V C+A FADD B;M 
[1] aMULTIPRECISION FLOATING POINT ADD 
[2] M+ /C<(1+A+FLOAT A),1+*+B<FLOAT B 
[3] C+(P/C),14(0,14¥(M- 14C)¥A)ADD 0,14(M-14C)¥B 
V 
EXAMPLES: 
A 
0 47152 2357206 
B 
0 222 3333333 4444444 5555555 
A FADD B 
0 222 3333333 4491596 7912761 
C+ 2 12345 6789012 3456789 
A FADD C 
0 47152 2369551 
a NOTE THE TRUNCATION 
a TO SEE THE NUMBERS IN USUAL FORM, USE VFORMAT 
FORMAT A 
47152 2357206. 
FORMAT C 
12345.6789012 3456789 
FORMAT A FADD C 
47152 2369551. 51 


FDIV MULTIPRECISION FLOATING POINT DIVISION 


SYNTAX: C+A FDIV B 


° A, B, AND C ARE MULTIPRECISION FLOATING POINT VALUES. 
(SEE DESCRIPTION FOR VFADD) 

°o THE PRECISION OF THE RESULT IS THE SAME OR SLIGHTLY GREATER 
THAN THE SMALLER OF THE PRECISIONS OF THE TWO OPERANDS. 

°0 USES: VFLOAT VDIV 

o DIVISION BY ZERO WILL RETURN ZERO, AS IN VCDIV. 


FUNCTION: 
VY C+A FDIV B;REM 
[1] aAMULTIPRECISION FLOATING POINT DIVIDE 
[2] C+((1000x1t144 )51414B)+ 14+(9B)+0L(pB+FLOAT B)-pA+FLOAT A 
C3] C<( (144 )-€14B)4C),14(00,14(Ct+pA)4A)DIV 0,148 
V 


O 222 3333333 4444444 5555555 
FORMAT B 
222 3333333 444uu4y 5555555. 
C 
~2 12345 6789012 3456789 
FORMAT C 
12345.6789012 3456789 
FORMAT B FDIV C 
180090 0016298 1001574. 
FORMAT (B FMUL C)FDIV B 
12345.6789012 3456788 9994910 
HALF 
“6 5000000 00000 
FORMAT HALF 
0.5000000 0000000 0000000 0000000 0000000 0000000 
FORMAT B FDIV HALF 
4u4u4H 6666666 8888889 1111110.0000000 


52 


FEXP MULTIPRECISION FLOATING POINT EXPONENTIAL FUNCTION 


SYNTAX: Z+FEXP X 


© RETURNS *X AS A MULTIPRECISION FLOATING POINT NUMBER. 


o X MAY BE SCALAR OR MULTIPRECISION FLOATING POINT, 
MP INTEGER BEING A CASE OF FLOATING POINT. 

°o SEE: VADD VFADD 

o THE PRECISION OF Z IS CHOSEN TO BE THE SAME AS THAT 
OF X. USE VALPREC TO INCREASE PRECISION 

°0 USES: VFLOAT VADD YMUL VDIV 


FUNCTION: 
. V 2ePEXP X3;I3N3T 
[1] aMULTIPRECISION FLOATING POINT *X BY THE STANDARD POWER SERIES 
[2] 2<T<0,(1-N+1tX+FLOAT X)t1+I+0 
[3] X*«0,14X 
C4] LOOP:2«Z ADD T+N4¥(T MUL X)DIV I+I+1 
[5] +(v/T#0)/LOOP 
C6] Z+N,142 
V 


EXAMPLES: 
AaCREATE THE CONSTANT 1 BY USE OF FUNCTION ALPREC 
O<ONE<+4 ALPREC 1 

76 1°00. 0 G6 0: 0 
FORMAT ONE 

1.0000000 0000000 0000000 0000000 0000000 0000000 
FEXP ONE 

“6 2 7182818 2845904 5235360 2874713 5266249 7757231 
FORMAT FEXP ONE 

2.7182818 2845904 5235360 2874713 5266249 7757231 
O<MINUSONE<4 APPREC “1 

“6 1000000 
FORMAT MINUSONE 

~4.0000000 0000000 0000000 0000000 0000000 0000000 
FORMAT FEXP MINUSONE 

0.3678794 4117144 2321595 5237701 6146086 7445811 
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FIX CONVERT TO MULTIPRECISION INTEGER 


SYNTAX: Z+FIX X 


o IF X IS SCALAR, IT IS ROUNDED AND CATENATED BEHIND A ZERO. 


IF X IS MP INTEGER, IT IS LEFT UNCHANGED. 


IF X IS MULTIPRECISION FLOATING POINT, IT IS TRUNCATED TO 
THE MULTIPRECISION INTEGER WITH THE SAME LEADING SEGMENTS. 


o SEE THE DESCRIPTIONS FOR: 


°o USES: VCAN 


FUNCTION: 


V 2«FIX X 


C1] aACONVERT A NUMBER TO A MULTIPRECISION INTEGER 


[2] >(1<92Z«X)/MP 
[3] >0,2<CAN Z 
Cu] MP:+(0=1+2Z)/0 


[5] ZCAN( OF 14+(14X)+pX)t14+X 


V 


0 222 3333333 4444444 5555555 
FORMAT B 

222 3333333 4444444 5555555. 
FIX B 

0 222 3333333 4444444 5555555 
C 

~2 “12345 ~6789012 ~3456789 
FORMAT C 

~42345.6789012 3456789 
FIX C 

0 ~12345 
D 

~3 76543 2109876 5432109 
FORMAT D 

0.0076543 2109876 5432109 
FIX D 

0 0 


FIX 7 


FIX 7.8 


VFADD VADD 
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FLOAT CONVERT TO MULTIPRECISION FLOATING POINT [ SCALE 1 


SYNTAX: Z+FLOAT X 


o IF X IS SCALAR, IT WILL BE CONVERTED TO AN MP FLOATING 
POINT NUMBER OF PRECISION 3. 

° SEE THE DESCRIPTION OF MP FLOATING POINT FORMAT 
FOR VFADD. 

° USES VCAN. 


V Z<«FLOAT X 
ia Ge ACONVERT A NUMBER TO MULTIPRECISION FLOATING POINT 
EQ) +(0<pZ«X)/0 
[3] X«L10000000@( X=0)+|X 
C4] Z+(X-2),14CAN Zx10000000«2-X 


Vv 
VY R«SCALE MP 
[1] a SCALAR APPROXIMATION OF MP 
[2] R+(10000000*14MP)x10000000114MP 
Vv 
EXAMPLES: 
FLOAT 876 
“2 876 00 


FLOAT ~1.2345 
2 ~1 2345000 0 

FLOAT 1F20 
0 1000000 0 O 

FLOAT ~2 3 1415926 5358979 
“2 3 1415926 5358979 


SCALE 6 ALPREC 1234.1234567890 
1234.123457 
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FMUL MULTIPRECISION FLOATING POINT MULTIPLICATION 


SYNTAX: C+A FMUL B 


A AND B ARE SCALAR OR MULTIPRECISION NUMBERS. 

RETURNS A MULTIPRECISION PRODUCT. 

SEE DESCRIPTION UNDER VFADD. 

THE PRECISION OF C IS SUCH THAT THE RELATIVE ACCURACY OF 
ITS LEAST SIGNIFICANT DIGIT IS JUST BETTER THAN THE 
LEAST SIGNIFICANT OF THE TWO OPERANDS. 

°o USES: VFLOAT VMUL 


o.U8dUlCUCOODUlCO 


FUNCTION: 
V C+A FMUL B 

[1] aMULTIPRECISION FLOATING POINT MULTIPLY 

[2] C+(0,14A<FLOAT A)MUL 0,14B+FLOAT B 

[3] C<+( (144 )+014B)-C) (CH (2-pC)T2-( 94) 0B) +149C 
Vv 


EXAMPLES: 


0 47152 2357206 
HALF 
“6 5000000 00000 
FORMAT HALF 
0.5000000 0000000 0000000 0000000 0000000 0000000 
A FMUL HALF 
“4 23576 1178603 0 
FORMAT A FMUL HALF 
23576 1178603.0000000 
C 
“2 12345 6789012 3456789 
C FMUL HALF 
“3 6172 8394506 1728394 5000000 
FORMAT C FMUL HALF 
6172.8394506 1728394 5000000 
TWO 
25: O°. 0.0.20: 6 
: FORMAT TWO 
2.0000000 0000000 0000000 0000000 0000000 
TWO FMUL HALF 
~6 4-0 ..0-:0.'0 0-0 
FORMAT TWO FMUL HALF 
1.0000000 0000000 0000000 0000000 0000000 0000000 
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FORMAT CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING 


SYNTAX: Z+FORMAT X 


© RETURNS A CHARACTER STRING WITH SEVEN-DIGIT GROUPS 
OF DECIMAL DIGITS PUNCTUATED BY SINGLE BLANKS 
OR DECIMAL POINT. 


FUNCTION: 


VV 2*FORMAT A;B;3E 
[1] ACONVERT A MULTIPRECISION NUMBER TO A CHARACTER STRING 
[2] AGET THE EXPONENT, AND INSERT LEADING AND TRAILING ZEROES 
C3] A+«(( Of 2-F+pA)p0),14A,( 0 B+144A)90 
C4] Z«( 8 0 F({A)+10000000-(p4)+10000000),* ! 
[5] ZLCB<(8x1+19A)-7xO7T0J<' ! 
[6] eINSERT A DECIMAL POINT ON TOP OF A BLANK, E GROUPS FROM THE RIGHT 
C7] ZC1+( 1LBE-1)+Bl<«'.! 
C8] ADROP LEADING BLANKS, INSERT ” JUST IN FRONT 


[9] Z+((0>14A)/' '),(-O7O-(Z=' ')10)42 
Vv 

EXAMPLES: 
B 

0 222 3333333 444444 5555555 
FORMAT B 

222 3333333 444444y 5555555. 
C 

“2 “12345 ~6789012 ~3456789 
FORMAT C 

~42345.6789012 3456789 
D 

~3 76543 2109876 5432109 
FORMAT D 


0.0076543 2109876 5432109 
FORMAT 5 74 
0.0000000 0000000 0000000 0000000 0000074 


FSQRT MULTIPRECISION FLOATING POINT SQUARE ROOT 


SYNTAX: C+FSQRT A 


o RETURNS THE MULTIPRECISION FLOATING POINT FORM OF 
THE SQUARE ROOT OF A. 

o A MAY BE SCALAR, MP INTEGER, OR MP FLOATING POINT. 

°o THE PRECISION OF THE RESULT IS THAT OF THE OPERAND. 
(SEE THE DESCRIPTION FOR VFADD.) 

°0 USES: VFLOAT VSQRT 


V C+FSQRT A;3E3M 
[1] aAMULTIPRECISION FLOATING POINT SQUARE ROOT 
C2] M+[0.5x1+(C«+2 |E<1+A)-pA+FLOAT A 
C3] C+(M+L0.5xF),14SQRT 0,140 (pA) 4+C-2xM) 4A 

V 


0 222 3333333 4444444 5555555 
FORMAT B 

222 3333333 4444444 5555555, 
O+Z2+FSQRT B 

~2 47152 2357205 3020324 9027073 
FORMAT 2Z 

47152 2357205.3020324 9027073 
FORMAT Z FMUL Z 

222 3333333 4444444 5555554.9929000 
O<«7WO<+3 ALPREC 2 

“5 200000 
FORMAT TWO 

2.0000000 0000000 0000000 0000000 0000000 
O<«Z<+FSQRT TWO 

“5 1 4142135 6237309 5048801 6887242 969807 
FORMAT Z FMUL Z 

1.9999999 9999999 9999999 9999999 99999937 
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FSUB MULTIPRECISION FLOATING POINT SUBTRACTION 


SYNTAX: C+A FSUB B 


Se om ey ee oe 


o SUBTRACT B FROM A, USING MULTIPRECISION FLOATING POINT 
ARITHMETIC. A AND B MAY BE IN ANY NUMERIC FORMAT. 
(SEE DESCRIPTION UNDER VFADD) 

o USES: VFLOAT VFADD. 


FUNCTION: 
VY C<A FSUB B 
[1] aMULTIPRECISION FLOATING POINT SUB 
[2] C«(A*FLOAT A)FADD(1+B),-14B+FLOAT B 
v 


0 47152 2357206 
B 
0 222 3333333 4444444 5555555 
A FSUB B 
0 222 3333333 ~4397292 ~3198349 
C 
“2 12345 6789012 3456789 
A FSUB C 
0 47152 2344861 
O<+D+"3 76543 2109876 5432109 
“3 76543 2109876 5432109 
C FSUB D 
“2 42345 6712469 1346913 
FORMAT C 
12345.6789012 3456789 
FORMAT D 
0.0076543 2109876 5432109 
FORMAT C FSUB D 
12345.6712469 1346913 
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MUL MULTIPRECISION INTEGER MULTIPLICATION 


SYNTAX: C<+A MUL B 


© A IS MULTIPLIED BY B, GIVING C, USING MULTIPRECISION 
INTEGER ARITHMETIC; A AND B MAY BE IN ANY NUMERIC FORMAT 

o SEE THE DESCRIPTION UNDER VADD 

© USES: VFIX VCAN 


FUNCTION: 


V C<A MUL B 
Li] AMULTIPRECISION INTEGER MULTIPLY 
[C2] AMAKE A THE SHORTER OF THE ARGUMENTS TO SAVE SPACE 


[3] >+((p4)=(pA*+FIX A)LOBCFIX B)/L1 
C4] C+A 
[5] A«B 
[6] B+C 


C7] ACHECK FOR POSSIBLE OVERFLOW (720 = (2*56)41EF7*2), 
C8] [Li:7(720>1+pC+Aeo.xB)/L2 


[9] C+((LC#10000000),0)4+0,10000000|C 
C10] 2L2:C+CAN+/(OI0-1p4)6C,(( pA), 1+p4)p0 
v 
EXAMPLES: 
A 
0 “1 ~2345678 ~9012345 ~6789012 
B 
0 222 3333333 4444444 
A MUL B 


0 ~274 ~4855942 ~5116597 ~4938071 3415514 ~3649328 
123456 MUL 876543 

0 10821 4492608 
5 MUL B 

0 1111 6666667 2222220 
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SQRT MULTIPRECISION INTEGER SQUARE ROOT 


SYNTAX: Z«SQRT A 


© A MAY BE SCALAR OR MULTIPRECISION BUT WILL BE TRUNCATED 
TO AN INTEGER. 

°o RUNNING TIME IS PROPORTIONAL TO (pA)x@9A, AND IS MUCH 
FASTER FOR NUMBERS WITH MANY TRAILING ZEROES. 

°o USES: VFIX VSUB VYMUL VYDIV VCAN. 


V Z2«SQRT A3;F3N;REM 
C1] AMULTIPRECISION INTEGER SQUARE ROOT BY ELEMENTARY RECURSION 
[2] AGET AN ACCURATE STARTING VALUE 
[3] Z+(N+1+L0.5xpA )tCAN(100000001(6+2|0A)+A*+FIX A)*0.5 
C4] ADROP TRAILING ZEROES FROM A AND DOUBLE IT 
C5] *OxXLO=1t14A<CAN 2x( (9A) +0IT0-( 004A )11)+A 
[6] LOOP:2Z<N+Z MUL F+e((1+pF)t+ 0 4 5000000 )SUB F+((N+pA)+Z MUL Z)DIV A 
C7] +(1<+/N+F)/LOOP 
Vv 


0 222 3333333 444444 §555555 
L<+A<+SQRT B 

0 47152 2357205 
A MUL A 

0 222 3333333 4415961 5412025 
NOTICE THAT THIS ESTIMATE OF Bex.5 IS SLIGHTLY LOW 
[<+A<«A ADD 1 

0 47152 2357206 
A MUL A 

0 222 3333333 4510266 126436 
BUT THE NEXT HIGHER INTEGER IS SLIGHTLY TOO HIGH, 
SO THAT THE TRUE SQUARE ROOT IS BRACKETED BETWEEN 
THESE TWO VALUES. 
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SUB MULTIPRECISION INTEGER SUBTRACTION 


SYNTAX: C+A SUB B 


0 SUBTRACT B FROM A, GIVING C, USING MULTIPRECISION INTEGER 
ARITHMETIC. A AND B MAY BE IN ANY NUMERIC FORMAT, C WILL BE 
MP INTEGER. SEE VADD. 

° USES: VADD VFIX 


V C+A SUB B 
[1] aAMULTIPRECISION INTEGER SUBTRACT 
bat C+(A+FIX A)ADD-B+FIX B 

V 


O 1 2345678 9012345 6789012 
B 

0 222 3333333 44444 yy 
A SUB B 

O 1 2345456 5679012 2344568 
A SUB 4 

0 1 2345678 9012345 6789008 
B SUB B 

0 0 
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Section V 


Mathematical / Numerical Functions 


AMORTIZE MORTGAGE CALCULATION BY MONTHS 
SYNTAX: M+AMORTIZE DEBT,RATE,MONTHS 


o DISPLAYS MORTGAGE TABLE INDICATING THE PROGRESSIVE DEBT 
REDUCTION, AND THE LEVEL PAYMENT SCHEDULE, AS IT BREAKS 
DOWN BETWEEN AMORTIZED DEBT AND INTEREST. 

DEBT IS TOTAL UNITS (E.G., DOLLARS) BORROWED. 

RATE IS ANNUAL INTEREST, AS PERCENTAGE (E.G., .095). 
MONTHS (E.G., 120 IF TEN YEAR MORTGAGE). 

RETURNS A MATRIX THAT RETAINS FULL PRECISION 

FOR SUMMARY CALCULATIONS. (SEE EXAMPLE) 

° USES: VOUTPUT 


(on oa °° 


V M<AMORTIZE NV3;0I0 
C1] RATE«NV3(2]+12xQI0+«1 
[23 MONTHS<NV3L 3] 
[3] DEBT<NV3([1] 
C4] M<«(MONTHS,5)pI+«0 
bod PAYMENT<DEBTXRATE+1-+(1+RATE)*MONTHS 
[6] BACK:NEWDEBT<DEBT -AMORTIZED<PAYMENT-INTEREST«DEBITXRATE 
C7] MUI; ]«(I«I+1),DEBI,PAYMENT,AMORTIZED,INTEREST 
[8] +(0<DEBI«NEWDEBT )/BACK 


[9] 'M DEBT PAYMT AMORT INT'OUTPUT(9 0F0 4¥M),' ',' ',9 290 14M 
V 
EXAMPLES 
M«AMORTIZE 1000 .06 12 
_M DEBT PAYMT AMORT INT 
‘) 1000.00 86.07 81.507 5.00 
2 918.93 86.07 oid te ore 4.59 
3 837.46 86.07 81.88 4.19 
4 735.58 86.07 B2e29 3.78 
o 673.29 86.07 82.70 3.07 
6 590.59 86.07 83524 2295 
7 507.48 86:07 83.53 2.54 
8 423.95 86.07 83.95 Zak 2 
9 340.01 86.07 84.37 1.70 
10 255.64 86.07 84.79 1.28 
ae 170.85 86.07 85.21 0.85 
12 85.64 86.07 85.64 0.43 
+# 0 24M 
1032.797156 1000 32.79715648 
A , ee ee TOTAL INTEREST PAID 
A + TOTAL DEBT REPAID 


A 4 TOTAL REPAID 


nD EE Gee CERO CoE ED OED GED SETS EE GEER END Gees GED EE Gees Gee GEE Gee GEE EET eye 


CONV CONVERT DECIMAL VALUES TO ANY BASE { DIGIZS CONFRAC ] 


= aoe ome ‘ce Cone 


SYNTAX: R+BASE CONV DEC 


o VALUES ARE CONVERTED TO CHARACTER STRINGS THAT RETAIN THEIR 
ARITHMETIC CAPABILITY. 

o THE CHARACTER STRINGS CAN BE RECONVERTED BY VDEC. 

° THE GLOBAL VARIABLE, DIGITS WILL SUPPORT UP TO BASE 36. 

THE CATENATION OF UNDERSCORED LETTERS AND OTHER CHARACTERS 

TO DIGITS WILL PERMIT LARGER BASES. 

NEGATIVE NUMBERS WILL BE TREATED CORRECTLY. 

FRACTIONS WILL BE CLOSELY APPROXIMATED. 

INTEGER CONVERSIONS ,E.G., HEXADECIMAL, WILL BE EXACT. 


USES: VENC VDL VCONFRAC 


oo 989 0 


FUNCTIONS: 
V R+BASE CONV DEC;0I0 
C1] OL0<«0 
[2] DIGITS<'012345678 9ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
[3] R+' 'DL' ~'(DEC<0J),'O'DL DIGITS( BASE ENCL|DEC] 
C4] R«R,BASE CONFRAC DEC 
Vv V R+B CONFRAC W;0I0:WN;BB;0CT 
an OcT<1F 15 
[2] +0 IF 0=NN<1||N,R<i10T0<7<0 
EXAMPLES: [3] BACK: R+R ,LNN+BBCBe-J<J +1 
| C4] +BACK IF 1#1+NN<BB|NN 
1ODEC 10CONV 10DEC' 1234.5678'! [5] R+'.', DIGITS(R] 
~41234.5678 [6] a CONVERTS DECIMAL FRACTIONS 
16DEC'20000! Vv 
131072 
36CONV 123456789 
21I3V9 
36DEC 36CONV 1234567890123456 
1234567890123456 
ANALYSIS: 16 CONV 131072 
ES] R«' '"DL' ~'(DEC<0],'0'DL DIGITS(BASE ENCL|DEC] 
~"""ABSOLUTE VALUE 
131072 
[3] R<' 'DL' “~'CDEC<0],'O'DL DIGITS( BASE ENCL|DEC] 
2t O0 ee (SEE VENC) 
020000 
[3] R+' "DL" ~'CDEC<0],'0'DL DIGITS( BASE ENCL|DEC] 
OS ged et ew, ee SELECTED 
020000 | 
[3] R<' 'DL' “'C(DECK<0],'0'DL DIGITSC( BASE ENCL|DEC] 
Pete GS eM Wee geo e w eeg e  ee e LEADING ZERO DELETE 
20000 
[3] R+' 'DL' “'(CDEC<0],'O'DL DIGITS( BASE ENCL|DEC] 


Ce caseliceme tiene time iene tiaane ease Mcnatic ae ie ie Ei A A EE ne end 


IF NEGATIVE 
20000 
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DATE COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY NUMBER 


SYNTAX: Z+DATE JS 


o RETURNS MONTH, DAY, YEAR, STYLE. (SEE VDAYNO) 
o JS IS THE JULIAN DAY NUMBER AS WOULD BE FOUND BY VDAYNO. 
o JS MAY BE A SINGLE VALUE OR A VECTOR. OPTIONALLY, IT 
MAY BE AN ARRAY OF SHAPE (N,2) WHERE THE SECOND COLUMN 
IS 0 OR 1, STATING FOR EACH JULIAN DAY WHETHER THE 
OLD (0) OR NEW (1) CALENDAR WAS IN USE. NORMALLY, 
THIS STYLE IS COMPUTED AUTOMATICALLY. 


V Z2<DATE JS3C3:D3dI3M3S3Y 
[1] aCONVERT JULIAN DAY NUMBER (AND OPTIONAL STYLE) TO DAY,MO,YEAR,STYLE 
[2] eadsS MAY ALSO BE A VECTOR OF JD'S OR AN ARRAY OF JD'S AND STYLES. 
[3] JS+(2+(pJS),1 1)poJ7S 
[C4] S+(J>2U23434)V(J>2299171 ACTS, 2361221<J+J7S£ ;0701)0 ;070+1) 
C5] C+L( J<J-1684595 )#36524.25 
C6] J+J +((~S)x(2-C)+7C#4)-[36524.25xC 
C7) Y+L(J+1)*365.25025 
[8] J<J+31-L365.25xY 
[9] D+J-L30.5875xM<LJ+30.5875 
[10] M<M+2-12xJ<LMe11 
[11] Z<M,D,(J+Y+100xC-1),(O70+0.5]39 


O<+Z+DAYNO 5 17 1977 
2443281 

DATE Z 
ob LOR a 

DATE Z2,2Z+30 


5 17 1977 1 
6 16 1977 1 
A IF THE OLD STYLE CALENDAR WAS IN USE AFTER 1752, OR 
A THE NEW STYLE IN USE BEFORE THEN, THE USER MUST 
A GIVE THE STYLE. FOR EXAMPLE, IN THE USA: 
O<«Z<«DAYWO 1 1 1800 
2378497 
DATE Z 
111800 1 


A BUT IN RUSSIA 
DATE 1 2pZ,0 
1224-27 39*'0 


DAYNO DAY NUMBER FOR ASTRONOMERS [ MOONPHASE 


SYNTAX: Z<DAYNO DATE 


ed 


-o DAYS SINCE 1/1/4713 B.C. (SEE VDATE) 
o DATE IS MONTH,DAY,YEAR. IT MAY BE A SINGLE 
SUCH TRIPLET OR A MATRIX, EACH ROW OF WHICH IS A TRIPLET. 
o OPTIONALLY, THE INPUT MAY HAVE A FOURTH COMPONENT OR COLUMN 
OF 0 OR 1 FOR EACH DATE, STATING WHETHER THE OLD (0) OR 
NEW (1) STYLE CALENDAR WAS IN USE. NORMALLY, THIS IS 
COMPUTED AUTOMATICALLY. 
o DAY OF THE WEEK MAY BE COMPUTED BY 1+7|1+DAYNO DATE. 
- SUNDAY = 1, ..., SATURDAY = 7. (SEE VDAYS) 


A eee ay 


V Z2<DAYNO DATE;:C;3D3sdF3M3S5;Y 
[1] aCOMPUTE JULIAN DAY NUMBER. DATE IS A VECTOR OR ARRAY WHOSE ROWS ARE 
[2] aMONTH,DAY,YEAR,STYLE. STYLE IS AN OPTIONAL LOGICAL VALUE = 1 IF THE 
[3] ANEW STYLE (GREGORIAN) CALENDAR SHOULD BE USED. THE JULIAN DAY IS 
C4] aA CONTINUOUS COUNT THAT BEGAN AT 0 AT WOON, 1/fif W712 (Fisk. 4713: BC). 
[5] DATE<(" 241,pDATE)oDATE 
[6] Z+1001L( Y*DATEL;2+0I01), COLON(M<DATEL : OF0]),COL0-0.5)]D+DATEL31+0I0] 
[7] S+(Z>19230114)v(Z>15821025)A(DATE, Aero e OO 3+0I0) 
[8] C+(2x~S)+0.75xSxL0.01xY-JF+22M 
[9] Z*31+D+(L367xIF+(M-2)#12)-[C-L365.25x4712+Y- IF 


V R«MOONPHASE MDYS 
C1] 90.00 IS WEW MOON;0.75 IS LAST QUARTER 


EXAMPLES: [2] R«<2¥1[+29.53059% 9+DAYNO MDYS 
V 
DAYNO 5 17 1977 
2443281 
O«+Z<+4 392 28 1900 3 1 1900 2 28 2000 3 1 2000 
2 28 1900 
3 1 1900 
2 28 2000 
3 1: “2006 
DAYNO Z 


2415079 2415080 2451603 2451605 
© AS CAN BE SEEN, 1900 WAS NOT A LEAP YEAR, BUT 2000 WILL BE ONE. 
1+7|1+DAYNO 5 17 1977 


a I.E. TUESDAY 
MOONPHASE 5 17 1977 


A IT.E. JUST BEFORE NEW MOON 
(DAYNO 5 17 1977)-DAYNO 11 1901 
27895 . 
© THE AGE IN DAYS OF THE TWENTIETH CENTURY. 
A IF THE OLD STYLE CALENDAR WAS IN USE AFTER 1752, OR THE 
A NEW STYLE IN USE BEFORE THEN, THE STYLE MUST BE ENTERED. 
a FOR EXAMPLE, IN RUSSIA BEFORE THE REVOLUTION (COMPARE ABOVE) 
DAYNO 2 28 1900 0 
2415091 
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DAYS 


SYNTAX: 


FUNCTIONS: 
V N+DAYS D;P3;r;0I0 


DATE CALCULATIONS [ DATES NDATES PAYDAY } 


N*+DAYS D D*DATES N R+NDATES KM 


GIVEN A NUMERIC VECTOR OR MATRIX OF THE FORM: 
MONTH, DAY, YEAR (1 30 1977), DAYS WILL RETURN 
FOR FACH, THE NUMBER OF DAYS SINCE 1/1/1, INCLUSIVE, 


AS IF THE GREGORIAN CALENDAR HAD BEEN IN USE CONTINUALLY, 


WITH NO LOSS AT THE CHANGE (IN ENGLAND ON SEPTEMBER iu, 
1752.) FOR A BETTER FUNCTION, SEE VDAYNO. 

THE 7| OF DAYS, CAN SELECT THE DAYS OF THE WEEK, 

WITH O0++SUNDAY; 1«+MONDAY, ETC. 

DATES CONVERTS THE DAYS BACK INTO CALENDAR DATES. 
NDATES CONVERTS DATES AVAILABLE AS CHARACTER MATRICES 
OF THE FORM: '013077' TO THAT REQUIRED BY DAYS. — 


Pe=/0=(N<(0,00.134 100 400)TDL;3))0233] 


N+IoN+DC 323+(L30.56xDE 31))-304+(D0 31)]23)x2-P 
a NOT ACCURATE PRIOR TO 1753. USE VDAYWO. 


M<«(0,[0. ‘174 100 400 )TY+(L(3644+D+, ($365. 2425)°¢.4+0, 0701 


~14(R*D>ME 321)6M+(365xY-1)+-4M015357, (1 }Petfo=mE 25357 


D<D- L30. 5 6xMe| (D+304D+(D>59+P)%2 -P+(ROP)C; 11)430, 56 


a NOT ACCURATE PRIOR TO 1753. SEE YDAYNO 


R+((1tpXKM),3)p2,1101101 4 O\KM 


[1] De+((x/I«"149D),3)9D ADITO«1 
[2] 
[3] NW+(365xD0L;3]-1)+-4N01337,01IP 
C4) 
[5] 
Vv 
V D«+DATES NiY3;M:P3;R;0I0 
[1] 
[2] D<«D-,0 
[3] 
Cu]  D+((pN),3)0M,D,0 “14+ROY 
C5] 
Vv 
V R<NDATES KM 
[1] 
[2] RL; Oro+21«RE : ;020+214+1900 
[3] a ASSUMES 20TH CENTURY 
Vv 
EXAMPLES: 
V RePAYDAY MDY;0DIO 
[1] a FRIDAY, ON OR BEFORE MDY 
[2] R«(DAYS MDY)-17+020«0 
£3] R«DATES RC(7|R)15] 
Vv 
PAYDAY 6 30 1977 
6 24 1977 
AA 
081118 
021926 
031354 
062758 
DATES DAYS NDATES AA 
8 11 1918 
2 19 1926 
3 13. 1954 
6 27 1958 
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DEC CONVERT TO DECIMAL 


SYNTAX: R*BASE DEC Q 


© CHARACTER VECTORS BELONGING TO THE GLOBAL DIGITS,'~.' 
REPRESENTING SCALAR NUMBERS IN ANY BASE, WILL SEEM 
TO BE CONVERTED TO THEIR DECIMAL VALUES, WITH WHICH 
ORDINARY CALCULATIONS CAN BE MADE. | 

o . WILL BE UNDERSTOOD AS SEPARATING THE INTEGER PORTION 
FROM ANY POSSIBLE FRACTION. FRACTIONS WILL BE CLOSELY 
APPROXIMATED. INTEGERS WILL BE EXACT, UNLESS THEY ARE 
FORCED TO FLOAT. 

o ARITHMETIC RESULTS CAN BE CONVERTED TO OTHER BASES 
THROUGH THE USE OF VCONV. 

0 DIGITS WILL SUPPORT BASES 2sBASES36. 

20 USES: VESCAPE 


FUNCTION: 
V R«BASE DEC Q;0I0:P3S 


C1 Q<«(S*Qe' ')/Q«(P<Qe'.')/Q 

[2] "CHARACTER ERROR'ESCAPE~A/QeBASE*+R+DIGITS 

{3] Re(1~2x0eS)x(BASE*-Of 1++/V\~P)xBASE1R1Q, 10L0+0 
EXAMPLES: 


(10 DEFC'1234' )=2981234 
1 E 

16 DECt20000! 
131072 

(16 DEC'20000')+16DEC'FFFF' 
196607 
16 CONV (16DEC'FFFF' )-16DEC'1234! 
EDCB 

10 CONV ~12345.6789 
~12345.67889999999988 

10 CONV 2% 16 
.00001525878906 

16 DEC 16CONV 2* 16 
1.525878906EF 5 
16 CONV 2* 16 


.0001 
16 CONV 2*° 64 
.0 
16 CONV 2«* 32 
.00000001 
ANALYSIS: 16 DEC' EDCB.125'! 
C3] Re(1-2x0eS)x( BASEx-Of “1++/V\~P) xBASE1R1@, 1.0100 
Peer Coe ces DIGITS 
Oe te Sed eA EVALUATED 


ein tne emmy tnt mith tanh ith eiey Cum Gms Cut eum ele kD mee eee due dim cme Ge emeb Ge eo emt amy Gem am ame fons en GtD com ame aim een 


POINT RETURNED 


‘iniob niin dele lah tommy ein Witme eunrh ame stint ates tite lamin cutnle aide Qoinh Guhl eiims Gots Gite GUND eeme GD ene Git! Une Gem ame ap cium one ant) ame Gime cin Mum GD ais Gi Gee Gu oom oe GD ey ON) oD 


a SIGN RETURNED 
60875.07153 


DROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNIT 


SYNTAX: R<«U DROUNDS V 


° ROUNDING THE ELEMENTS OF A VECTOR BEFORE SUMMATION MAY CAUSE 
AN ERROR IN THE SUM. ROUND-OFF ERRORS DO NOT NECESSARILY 
COMPENSATE. IT WOULD BE GOOD PRACTICE TO CARRY MAXIMUM 
PRECISION UNTIL THE FINAL SUMMATION, THEN ROUNDING THE SUM. 

o WHEN THIS IS NOT POSSIBLE, WE WOULD STILL WANT THE ROUNDED 
SUM TO EQUAL THE SUM OF THE ROUNDED ELEMENTS. SEE VROUNDS 


VY R<U DROUNDS V;0CT;0I0:E;N 
C1] E<1 | V+Viu+Oc7T<OI0+0 
[2] N<+(LO0.5++/V)-+/LV 
[3] R<Ux(LV)+N>AVE 


V 
EXAMPLE: 
A 

0.86 0.21 0.95 0.9 0.7 0.69 0.44 0.59 0.16 0.57 0.06 0.47 0.6 0.46 0.93 0.61 

+/A 
9.2 

+/.1 ROUNDS A 
9.4 

+/.1 DROUNDS A 
9.2 
ANALYSIS: -1 DROUNDS A 


ERRORS IF FLOOR USED. NOTE EFFECT OF (\CT<0 
0.6 Oct. 0.5 1 2029 0.4 0.9 0.6 0.7 0.6 0.7 1.0.6: 0.3: O21 
G20 N<+(LO0.5++/V)-+/LV 
~~ FLOORS 
8298 664515045 4 9 6 


C2] N+(LO.5++/V)-+/LV 


[2] N<(L0.5++/V)-+/LV 


ROUNDED UP FOR TESTING 


C2] We(L0.5++/V)-+/LV 
10 ADJUSTMENTS NEEDED, BUT WHERE? 
ed R<UxX(LV)+N>AYVE 
“““LOCATION, BY SEVERITY 

10 1411 203124857619 13 15 
[3] R<Ux(LV)+N>AVE 

aes HERE! (10 WORST REPRESENTED BY FLOOR) 
O:O-0: 2.4 Or 4 a 4 4 OO 


C3] ReUx(LV)+N>AVE 


8.6 2.1 9.5 97 6.9 4.4 5.9 1.6 5.7 0.6 4.7 6 4.6 9.3 6.1 
[3] R+Ux(LV)+N>AVE 


829866451504 549 6 
[3] R<Ux(LV)+N>AVE 


8299774626156596 69 


ENC GENERATE SUFFICIENT ENCODING POSITIONS 


SYNTAX: R<«S ENC A 


ore Snes Erne Tore Bree Sire 


ENCODE(t) AND DECODE(1) WOULD BE FULLY COMPLEMENTARY IF 
SUFFICIENT RADIX POSITIONS COULD BE SUPPLIED. VENC WILL 
PERFORM THE FULL REPRESENTATION OF ITS ARGUMENT, 
ACCORDING TO THE RADIX, S. (S>1)A(1SL/A) 


| V R+S ENC A 
[1] ai<S 1s<L/A 
Le R<((1+7Se1f1T/,4)pS)TA 


V 
EXAMPLES: 
12 EWC 143 144 145 
0 0 & 
o 1 1 
i! ~O- 3@ 
aay, (30) ~ i 
142112 ENC 143 144 145 12212 127143 144 145 
143 144 145 | 1443 0 1 (2WO TWELVES NOT ENOUGH) 
ANALYSIS: 


‘aaa Swen Seemme SEER nee SOO SR wee 


12 ENC 143 144 145 
[2] R<((1+[Se@1[[/,A)pS)TA 


143 1244 4145 
boy R<((1+[1S@1[[/,A)pS)TA 


12 
[2] R+((1+fSe1ff/,4)pS)TA 
idl GUARDING AGAINST ZERO 
145 
[2] R«((1+[Se@1fT/,4)pS)TA 
2.002784991 
[2] R+((1+1S@1TT/,4)pS)TA 
3 
[2] R+((1+FS@1f1/,4)pS)TA 


oe em ee mt Ore eet ly Soe em Ome mee 


GUARD HIGH-ORDER POSITION 


uy 

[2] Re((1+P Seif /,4)0S)TA 
12 12:42:42 

[2] R<((1+[S@1FT/,4)pS)TA 


ot ee ee de mee nee eed eee SS Mele eee ene a Cee any oe ee Ge eee cee ante 
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FREQ FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA KFORM |] 


SYNTAX: R«FREQ A 


o THE ARGUMENTS MUST BE NUMERIC CODES, OR NUMERIC 
REPRESENTATIONS OF CHARACTER GROUPS. 
o TWO NUMERIC COLUMNS WILL BE RETURNED: 
THE FIRST, THE COUNT, OR FREQUENCY 
THE SECOND, THE CORRESPONDING CATEGORY. 
o FREQUENCY WILL APPEAR IN DESCENDING ORDER, 
WITHIN WHICH THE CATEGORIES WILL ASCEND. 
o USES: VDREP 
FUNCTIONS: 
V R+FREQ A | 
[1] aA IS A NUMERIC STRUCTURE. USE LJNFORM OR NFORM TO CONVERT. 
[3] a IF THE ARGUMENT IS A CONVERTED CHARACTER MATRIX, | 
[4] «a THE SECOND COLUMN OF THE RESULT CAN BE RECONVERTED BY KFORM, 
[5] R+(12)SORTDAOR,[OLO+0.51+4A°.=R+DREP A+,A 
v 
V K<«C KFORM N;0I0 
EXAMPLES: [1] K+*DLBQCE(11ppC)tTNI]A OFO<o 
v 
FREQ ?75p5 


2 4 (2 TWO'S, 2 FOURS, 1 THREE, WO OWES, WO FIVES) 


N+(AV,'''')NWFORM VERT'THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG''S BACK' 


(¥0 1+R),MATRIX (AV,'''') KFORM 0 1¥R+FREQ NW 
(NINE BLANKS) 


V R«DA SORTDA M;N 


[2] a A CONTROLS THE INITIAL ASCENDING SORT. 
[3] a D CONTROLS THE FINAL DESCENDING SORT. 


C5] R<«NLY.(N<+MCA.ME3 14DAJ31)031+DAI13;] 
Vv 


PRR PPP PE PRP RE PPE ERE BRBNMUNNNNNNNN FF FO 
“NN NMEBITHOWDSTHAGVHAROCHRDAAWOIAWFROR 


[1] a DA IS A PAIR OF COLUMN NUMBERS IN USER'S ORIGIN. 


C4] aM IS A NUMERIC MATRIX WHICH MAY RESULT FROM NFORM. 
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Pi COMPUTE PI TO ARBITRARY PRECISION 


SYNTAX: SUM+PI WN 


Rom awe Ga Seen ante ee 


0 COMPUTE PI (3.14159+) TO 7xN DECIMAL DIGITS OF PRECISION 

o THE ARCSIN POWER SERIES (6x 10.5) IS SUMMED--NOT THE 
FASTEST KNOWN METHOD, BUT FAR FROM THE SLOWEST 

°o RUNNING TIME IS PROPORTIONAL TO Nx2 

0 USES: VADD YMUL YDIV 


FUNCTION: 
V SUM+PI N;I;TERM;REM 
[1] COMPUTE PI TO 7xN DECIMAL PLACES BY THE POWER SERIES FOR 6x 10.5 
[2]  SUM<TERM<0,(N+I<1)+3 
[3] LOOP:TERM<(TERM MUL I)DIV 4xI+4 
[4]  SUM<«SUM ADD TERM DIV I<I+2 
[5] + (v/TERM#0)/LOOP 
[6] SUM<«(-N),1+SUM 
V 


EXAMPLES: 
O<P<+PI 6 
“6 3 1415926 5358979 3238462 6433832 7950288 4197136 
a COMPUTE THE RAMANUJAN NUMBER xOKx.5 FOR K=163 
[l+K+3 ALPREC 163 
“5 163 00000 
FORMAT Z<FSQRT K 
12.7671453 3480370 4661710 9520097 8089234 
FORMAT Z<P FMUL Z 
40.1091699 9113251 9755350 0836229 0414003 
FORMAT Z<FEXP 2Z 
2625 3741264 0768743.9999999 9999925 0066319 1466030 7724958 
9 FOR NUMEROUS OTHER VALUES OF K, THESE NUMBERS ARE VERY 
a CLOSE TO PERFECT INTEGERS. ALL THE MORE REMARKABLE THAT 
a RAMANUJAN DISCOVERED THEM IN 1915 WITHOUT THE AID OF A 
a COMPUTER. 
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QPROBF COMPUTE CHI SQUARE PROBABILITY FUNCTION 


SYNTAX: Z«+CHISQ QPROBF NU 


© COMPUTE THE PROBABILITY OF A GIVEN CHI SQUARE VALUE 
OCCURRING FOR A GIVEN NU (NUMBER OF DEGREES OF FREEDOM) 
o NU IS ROUNDED DOWN TO THE NEXT LOWER EVEN INTEGER 
o NOTE THE EXTREME ELEGANCE WITH WHICH IT IS POSSIBLE 
IN APL TO EXPRESS A POWER SERIES 


FUNCTION: 

V Z2<CHISQ QPROBF NU 
[1] ACOMPUTE Q(CHISQ|NU), WHERE NU FS ROUNDED DOWN TO AN EVEN INTEGER 
[2] Z<«(*-CHISQ+2)x(CHISQ+2)16?x\1!f -O70-iLNU+2 


V 
EXAMPLES: 
5.78 QPROBF 20 
0.999164 
27.3 QPROBF 20 
0.127033 
27.3 QPROBF 40 
0.93691 
AWALYSIS: 5.78 QPROBF 20 


er 


0123456789 
[2] Z«(*-CHISQ+2)x(CHISQ+2)1o+x\17 -OL0-1LNU+2 
114234567 8 9 
[2] 2«(*-CHISQ#2)x(CHISQ+2)16+%\1f -O70-1LWU+2 
112 6 24 120 720 5040 40320 362880 
EQ Z+«(*-CHISQ+2)x(CHISQ+2)1o0+x\17 -OT0-1LNU+2 
aaa A a (NOT ALL RECIPROCALS SHOWN) 
10.5 0.1666666667 0.04166666667 0.008333333333 0.001388888889 
] 2+ (*-CHISQ+2)x(CHISQ+2)1od+x\1f -Ol0-1LNU+2 
2.89 
[2] Z«(*-CHISQ&2)x ( CHISQ#2)1+x\1f -OT0-sLNUs2 
17.9782608 
C2]  2«(*-CHISQ+2)x(CHISQ+2)16+x\11 -DT0-1LWU+2 
2.89 
£2] Z<(*-CHISQ+2)x(CHISQ+2 )1>+x\1f -OL0-ilLWU+2 
"2.89 | 
[2] Z<(*-CHISQ+2)x(CHISQ?2)16+x\1[ -OT0-1LNU+2 
0.05557621261 
[2] Z<(*-CHISQ+2)x(CHISQ+2)10+x\1F -OlT0-1LNU+2 


oA mem ane ome eee mee ane aoe cea came ain come cam th emi Se uy es nt Se ene eee ce with me ere coe cme ce nt ae oes cee oe cs ee ses ene ew 
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ROMAN CONVERT INTEGER TO ROMAN NUMERALS 
SYNTAX: R+ROMAN WN 


© ROMAN NUMERALS MAY BE REQUIRED FOR CERTAIN TYPES OF PAGE 
OR PARAGRAPH NUMBERING. THEY ALSO ILLUSTRATE THAT THERE IS 
A DISTINCTION BETWEEN THE VALUE OF A NUMBER AND ITS REPRE- 
SENTATION. W IS AN INTEGER GREATER THAN ZERO. RIS A 
CHARACTER VECTOR REPRESENTING N AS A ROMAN NUMERAL. 


FUNCTION: 


V R*+ROMAN N;I;0I0 
[1] OLro0<+0 
[2] I+0 1000T''ow 
C3] R+O0 5710 10 10 10TN+I[1] 
C4] W<,Q(14)°.<,Q(0fR-1 3¢.x4=R[13;]),LOJRL0O; Jex=R 
C5] R«(ILO]p'M'),N/,Q4 169'xMxxDCMDLXCLVIXV' 


ROMAN 977 
CMLXXVII 

ROMAN 1977 
MCMLXXVII 

ROMAN 10000 
MMMMMMMMMM 
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ROUNDS SELECTIVE SYMMETRICAL ROUNDING 


SYNTAX: R<U ROUNDS A 


° TO ROUNDOFF NUMBERS TO ANY GIVEN UNITS 
°o TO ROUND NEGATIVE NUMBERS AWAY FROM ZERO 
°o RESULT WILL BE THE NEAREST MULTIPLE 

OF THE CORRESPONDING UNIT. 


V R<U ROUNDS A 
C1] aU IS A SCALAR OR CONFORMABLE STRUCTURE OF SPECIFIED UNITS 
[2] R<(xA)xUxlLO.5+[AtU 

V 


EXAMPLE: 


10 0.01 ROUNDS 5287 1234.006 
5290 1234.04 


ANALYSIS: 
A 

3.6 145 150 151 1.027 
U 

1550 3: 9 7 008 
U ROUNDS A 


[2] R<(xA)xUxL0.5+ [AU 
~ THE CORRESPONDING UNITS 
1.5.3 7 °F 0703 
[2] R+(xA)xUxLO.5+/AtU 
~~~ WORMALIZED 
2.4 48.33333333  21.42857143 ~21.57142857 34.23333333 
P24 R<(xA)xUxL0.5+]AtU 
“~~ ABSOLUTE VALUES 
2.4 48.33333333 21.42857143 21.57142857 34.23333333 
Eo R<«(xA)xUxLO.5+/AtU 
Seg ee HALF-ADJUSTMENT ADDED 
2.9 48.83333333 21.92857143 22.07142857 34.73333333 
[2] R<(xA)xUxLO.5+|AtU 
2 US 24. 22: 34 
[2] R<«(xA)xUxLO0.5+|AtU 
eo. ee eee NORMALIZATION REVERSED 
3 144 147 154 1.02 
[2] R<«(xA)xUxL0.5+|A#U 
= THE ORIGINAL SIGNS 

1 Sh ae 
C2) R<(xA)xUxLO.5+|/AtU 

iy te agg te ee NEGATIVE NUMBERS RESTORED 
6 the Ty Dee: 4 02 
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LO 


NUMERIC VECTORS IN EQUAL INCREMENTS [ BY IN FROM ] 


SYNTAX: R<«A TO B 
R+A TO B BY C 


ome See Crete Sees von Gee 


TPQws 


N: 
Rs 


oWHEN 


coon Sows tows anae Sane Some Meee Seem 


5 6 7 8 9 10 
Oe Sk. Oe dk 
5 4 3 2 


5 7 9 
5 
5. pa OB Bea 


1.70 Ss 


om een ttn eee Heme ome Sanh Siem cine 
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R<«N FROM A 
R<«N FROM A BY C 


STARTING VALUE 
LAST VALUE (OR BOUNDARY VALUE) 
(POSITIVE OR NEGATIVE BUT NOT ZERO) 
INTERVALS DESIRED 
VALUES OBTAINED = 
VALUES DESIRED 

NUMERIC VECTOR WITH EQUAL INCREMENTS 


INCREMENT 
NUMBER OF 
NUMBER OF 
NUMBER OF 
RESULTING 


THE FUNCTIONS 'TO' AND 
IS UNDERSTOOD TO BE ONE. 


5. 20-10 
Bee LO: a 
SlO..2 


Do LOCO Be 2 


on 


FO:-10 BY 6 
5 7O 7 .BY 


e 5 


LO 20° BY 2,5 FROM 5 
123 4 5 1012 14 16 18 20 50 51 52 53 


Vo2¢A TO Bysshe X sro 


C1] OI0~+0 
[2] R+ppZ+1, 
C3] Z+.Z 


B 


C4] X<«|Z02xR>1 J 


[5] D<+Z(1J-A 
C6] >(3>R)4+Z 


1 


L7] B+A+(DtX)x114+X 


[8] >L2 


[9] D1i:BeA+(XxxD)xiit+l | DEX 


[10] 22:2«B,(2+R>1)+Z 


eae 
2a 


Lael 
[2] 


ie 
[2] 
Lied 


15 


0, 


V 


"FROM! 


4 5 6 


nae 


7 


6 


R<+A 


(M # 0). 


M+1 


TO BIN M 


ARE USED ALONE, THE INCREMENT 
SEQUENCES OF ANY OF THE ABOVE FORMS 
ARE ALSO POSSIBLE, PROVIDED THAT THEY ARE SEPARATED BY COMMAS 
AS SHOWN IN THE EXAMPLES. 


<> 0 TO 6 


6 OO 


<> 5 FROM 


<> 4 FROM 


HO: PO 30, BY 'S 
54 40 35 30 


Aes: BY 
"ZERO IS INVALID 
SeC1 502) PZB 3 


Z+B IN M 
"ZERO IS INVALID 
ZeCd 1402) 028M 


Z«+N FROM A;R;UI0 


OIO0<0 


R<«+p0Z<1,A 
Z<«(Z011+202xR>1)x1NV),(2+R>1)4+2<,2 


IN 3 


IN 3 


15° BY. 9 


ARGUMENT'HANG 0=14C 


ARGUMENT'HANG 0=1+M 


NOZE: THIS IS AN EXAMPLE OF LINKING APL FUNCTIONS TOGETHER. THE CORE 


FUNCTIONS, ‘'TO' AND 


"BY' OR 


t 


'FROM', DETERMINE WHETHER OR NOT THERE WAS A 
IN' CLAUSE FROM THE RANK OF THEIR RIGHT ARGUMENTS. 
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TRUNC TRUNCATE HIGHER AND LOWER ORDER DIGITS 


SYNTAX: R<+U TRUNC A 


© SELECT PARTICULAR DECIMAL DIGIT POSITIONS 

o EXPLICIT (INPUT) DECIMAL FRACTIONS WILL BE RETURNED 
CORRECTLY. LOW-ORDER DIGITS OF COMPUTED FRACTIONS MAY 
NOT BE EXACT IN DECIMAL REPRESENTATION. 


V R<U TRUNC A 
[1] R<10(L/AtU 
[2] a IF U IS ANY POWER OF TEN, THEN THE CORRESPONDING DECIMAL 
[3] a POSITION OF A IS RETURNED. 
[4] a IF U IS A UNIT DIVISOR, A IS FIRST CONVERTED TO THE NEW UNIT, 
[5] a THEN THE NEW UNITS PLACE IS RETURNED. 
Vv 


EXAMPLE: 


(10*15)7RUNC 12345+0I0<0 
5 4 321 


ANALYSIS: 


-1 1 10 TRUNC 1007 
[1] Re10|LlAsu 


C41, 40 

C1] R+10|LIAtu 

142.8571428571428 14.28571428571429 1.428571428571428 
Fi) “Reto LAty 

142.8571428571428 14.28571428571429 1.428571428571428 
fad Reto Ay 

142 14 1 

C1} R<i0|t {Ar 


24 1 
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ZDIV ZERO TOLERANT DIVISION ( CDIV J 


SYNTAX: R<«N ZDIV D 


o DOMAIN ERRORS ARE UNDESIRED IN COMMERCIAL MATRIX OPERATIONS 
WHERE ZEROS USUALLY INDICATE UNAVAILABLE INFORMATION. 

°o N AND D ARE CONFORMABLE NUMERIC STRUCTURES OR SCALARS IN 
ANY COMBINATION. 

°o ZERO WILL BE RETURNED INSTEAD OF THE DOMAIN ERROR. 


et ey 


V R<N ZDIV D 
[1] © RETURNS ZERO WHEN DIVISOR IS ZERO 
[2] A APL RETURNS UNITY WHEN N AND D ARE BOTH ZERO 
[3] R<«(NxXR)+(DXR)+~R<(N=0)VD40 
V VR<«N CDIV D 
[1] A COMMERCIAL DIVISION: RETURNS ZERO IF D=0 
[2] R+«(NxR)+D+~R<Dz0 


EXAMPLES: V 
A«2 0 2 0 ALL COMBINATIONS OF N AND D BEING ZERO 
Bes |S. 0:0 
A ZDIV B 


0.6666666667 0 0 1 
+ NON-ZERO DIVIDED BY ZERO 


ANALYSIS: 


‘on come ‘creme emt Soa Soe Soom ae 


4 04 0 ZDIV 2200 
[3] R«(NxR)+(DxR)+~R«(N=0)vD#0 


1100 
[3] R+(NxR)+(DxR)+~R«(N=0)vD#0 


Ort 04 
[3] R<«(NXR)+(DxXR)+~R+(N=0)VD40 
Ee ee Bek, DIVISION MAY PROCEED FOR THESE CASES 

ee met 
1 R+(NxR)+(DxR)+~R<(N=0)VD#0 

a ew BUT WOT THIS CASE 
0010 
[3] R<«(NxR)+(DXR)+~R<+(N=0)VD40 

Tr SOME GOOD DIVISORS 


) 
[3] R«(NxR)+(DxXR)+~R+(N=0)VD40 
oS en eee ALL GOOD DIVISORS 
2210 
[3] R«(NxR)+(DXR)+~R<(N=0)VD40 
_- ALL GOOD NUMERATORS 
4 00 0 


[3] R<+(NxR)+(DxR)+~R+(N=0)VD40 
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Section VI 


Utility & Miscellaneous Functions 


COMB ALL COMBINATIONS OF ELEMENTS [ DEBLANK UNIQ ] 


SYNTAX: R+A COMB B 


°o JUXTAPOSES EACH UNIQUE ELEMENT OF A WITH EACH UNIQUE 
ELEMENT OF B, DISREGARDING BLANKS. 

° A AND B CAN BE CHARACTER OR NUMERIC STRUCTURES. 

° USES: VCFORMAT VDEBLANK VUNIQ 


re ores eee amt Sere are Grae Gate Gomme 


VY R<A COMB B 
ies a | A CFORMAT, DEBLANK, AND UNIQ CLEAN UP 
[2] a GLOBALS A AND B, WHICH ARE LOCAL HERE. 
[3] CFORMAT 
C4] DEBLANK 
[5] UNIQ 
C6] R+(,8((pB),94)0A), COLO+0.51,( (pA), 9B) oB 


EXAMPLES: 
"AABC'COMBi6 

Al 
A2 
A3 
A4 
A5 V DEBLANK 
A6 Et] A+(A#' ')/A<«,A A B(B#' !)/B+,B 
Bi V 
B2 
B3 
Bu VY UNIQ 
BS bad A<«DREP A A B+DREP B 
B6 V 
C1 
C2 
C3 
C4 
C5 
C6 

1 2 3 COMB 234 345 1.1 

Zz 234 

1 345 

4 1.1 

2 234 

2 345 

2 1.1 

3 234 

3 345 

3 14 


CVEC BUILD COMPRESSION OR LOGICAL VECTOR 


SYNTAX: R+«N CVEC LOC 


© BINARY VECTORS OF ARBITRARY LENGTH WITH ARBITRARY ZEROS 
AT NUMBERED POSITIONS, IN USER'S ORIGIN. 
© CAN GENERATE INPUT TO VXVEC. 


FUNCTION: 


V R«N CVEC LOC 
C1] R«No1 
C2] RL LOCI<0 
C3] Aa RETURNS A COMPRESSION VECTOR THAT CAN SELECT ALL BUT LOC 
C4uJ] a LOC IS DESIRED ROW OF VLOC (UOI0«0), OR SIMILAR NUMERIC VECTOR 
[5] aN IS ORIGINAL LENGTH OF AXIS TO BE COMPRESSED 


V 
EXAMPLES: 
1d CVEC 4 22'S)-5. 7 44 
Oi 010: 40h ds Oa a a de a 
32 CVEC (0=4|121)/121 
BAF Oe BSA A NO) a ote a? 2 ee SO A Os ie ae ah ed Sk at ds ed. 
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DT DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES 


SYNTAX: R<«V DT A 


°o INSIGNIFICANT CHARACTERS OR VALUES, AS DEFINED IN V, 

THAT APPEAR ON THE RIGHT SIDE OF AN ARRAY, WILL BE DROPPED 
o THE ORIGINAL RANK OF A WILL BE PRESERVED. 
© AN EMPTY ARRAY IS RETURNED IF NOTHING SIGNIFICANT REMAINS. 


FUNCTION: 
V R«V DT A 
[1] R<(( 1¥pA),0/,+/V\O~AEV) +A 
Vv 
EXAMPLES: 
0 DF 2 4p4ttl 
i TO DELETE TRAILING ZEROS 
1 
"x'"DT 2 4Uo'MN*x*xMNMx'! 
MNx 
MNM 
a” tT S47 ke! 
1 TO DELETE TRAILING BLANKS 
ANALYSIS: 


'* 2?'DT'GOOD ?! 
C1] R<«((~14pA),0/,+/V\O~AEV) 4A 
GOOD ? 
[1] R+(( 14pA),P/,+/V\O~AEV) 4A 


[1] Re( (71404) 0 /,4/V\O~AeV) 44 


00.0. 0-4 

C1] Re( (0 14pA).P/,+/V\OrAEV) 4A 
00044144 

C1] Re(( 140A), F/,+/V\OrAEV) 4A 

4 

C1} R+((14pA),T/,+/V\OrAEV) tA 

a tak FOR RANK>2 

4 


[1] R<«((°14p4),0/,+/V\O~AEV)4A 

ae Ria Se PROTECTS SIGNIFICANT TRAILERS 
uy 
C1] Re( (0 14¥pA),0/,+/V\O~AEV) 4A 


7 
C1] R<(( 1494),0/,+/V\O~A EV) 4A 
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EASTER COMPUTE THE DATE OF EASTER 


SYNTAX: Z*+EASTER YEAR 


0 COMPUTE THE DATE OF EASTER FOR ANY YEAR SINCE 33 AD 
° YEAR MAY BE A SINGLE YEAR OR VECTOR OF YEARS. 
IT MAY ALSO BE AN ARRAY OF SHAPE (N,2) WHERE THE 
SECOND COLUMN IS 0 OR 1 FOR EACH YEAR STATING 
WHETHER THE OLD (0) OR NEW (1) STYLE CALENDAR 
WAS IN EFFECT THEN. WORMALLY, THIS IS COMPUTED 
AUTOMATICALLY. 


PUNCTION: 
V Z2EASTER YS;CsEPACT3G3N3X;Y 
[1] aCOMPUTE EASTER FOR YEAR Y, OPTIONAL STYLE S. 
[2] aYS MAY ALSO BE A VECTOR OF YEARS OR AN ARRAY OF YEARS AND STYLES. 
[3] YS+(2+(pYS),1 1)pYS 
[4] S<«(Y¥>1922)v( ¥>1583 )aA(YS,1752<Y+YS[ ;070])C;070+1) 
[5] +0x10Z+(33>L/Y)/'EASTER WASN''T CELEBRATED THAT EARLY.' 
[6] X<*Sx2-L0.75xC*+14+L0.01xY 
C7] EPACT<30|20+(Sx10+L0.32xC-15)+(11xG+14+19]Y)+X 
[8] N<44-EPACT+S~x (EPACT=24 )V( EPACT=25)AG>11 
[9] N<N+30xW<21 
[10] MN<N+7-7[|N+7[X4+L1.25xyY 
Lit] 70x1141t+pZ<MN 
[12] Z<«'FASTER ON ',((6xx30.5-N)+'MARCH APRIL '),(41+31] 14+N),', ', Pity 


EXAMPLES: 


ee 


EASTER 1978 
EASTER ON MARCH 26, 1978 
EASTER 1865 
EASTER ON APRIL 16, 1865 
EASTER 1 
EASTER WASN'T CELEBRATED THAT EARLY. 
© A VECTOR INPUT PRODUCES A VECTOR OUTPUT OF THE 
© DAY NUMBERS IN MARCH. 
EASTER 1978 1865 


© WHEN OLD STYLE WAS KNOWN TO BE IN USE AFTER 1752, 
@ OR NEW STYLE BEFORE THEN, YOU MUST GIVE THE STYLE. 
@ FOR EXAMPLE, RUSSIA BEFORE THE REVOLUTION: 
EASTER 1 291865 0 

EASTER ON APRIL 11, 1865 


82 


EXTEND EXTEND VECTOR WITH LAST VALUE 


SYNTAX: R+N EXTEND V 


o THE APL + WOULD EXTEND A VECTOR BY PADDING IT WITH 
ZEROS OR BLANKS. 

°o EXTEND WILL FILL THE SPACE REMAINING ON THE RIGHT 
WITH THE RIGHTMOST VALUE. 

o THIS WILL HAPPEN ONLY IF N>pVv. 

°o EXTEND RETURNS A VECTOR OF LENGTH N, OR pV, 
WHICHEVER IS’ GREATER. 


FUNCTION: 


V R<N EXTEND V | 
Li] R<V,(COPN-pV)p itv 
V 


10 EXTEND 000 1 
0°00 1-4 4°44. 44 

(30 EXTEND ‘INDEX ITEM-'),' 20! 
INDEX. LTEM Soe eee See aes 20 

12 EXTEND ‘THIS WILL NOT BE PADDED WITH-' 
THIS WILL NOT BE PADDED WITH- 


33 EXTEND'ITEM 4,! 
C1] R<V,(OPN-pV)p 147 
ITEM 4. 2 
C1] R«V,(OPN-pV)p 1tVv 
C1] R«V,(OFN-pV)p 1tV 


[1] R<V,(OFN-pV)p 1tV 


[1] R<V,(OTN-pV)p 14V 


FILLS REPLACE VACANT ELEMENTS ( CFORMAT CONFORM STRUCT A ] 


SYNTAX: R+«A FILLS B 


o THE STRUCTURE A, WHICH MAY BE SCALAR, WILL APPEAR 
IN VACANT SPACE OF B. IN A NUMERIC STRUCTURE 
ZERO SIGNIFIES VACANCY. DISPARATE STRUCTURES WILL BE 
MADE TO CONFORM. UNLESS OFFSET, THE FIRST ELEMENT OF 
A WILL MAP INTO THE FIRST ELEMENT OF B. 
IF ONE, BUT NOT BOTH OF THE OPERANDS, IS NUMERIC, 
IT WILL BE CONVERTED TO CHARACTER FORM. 
° USES: VCFORMAT VCONFORM 
FUNCTIONS: 
V R«A FILLS B 
[1] CFORMAT 
[2] CONFORM 
[3] R«(pB)o(B=1t0pB)eB,LOI0-0.5]A 


V CONFORM:;J7:;:K:R 
[1] R<«(J<«ppA)f K<ppB 


EXAMPLES: [2] +0 IF 0=dxK 
[3] A<R STRUCT A A BR STRUCT B 
EX C4] A<+R+A A B+(R<(pA)FpB)tB 
Xx Xx V 
X X V X<D STRUCT A 
Xx [1Je D IS DESIRED RANK (DIMENSIONS) 
xX x [2] X<«((-D)t+(Dp1).pA)pA 
Xx Xx V 
QUADX V R<A A B 
0 0 [1]ea THE SEPARATOR. A AND B MUST RETURN VALUES. 
Od Eo] R+<A 
0 Vv 
00 V CFORMAT 
0 0 [ile ASSUMES A AND B HAVE BEEN LOCALIZED 
NULLX [2] 2'A<tA A B<BB'IF(CHARACTER A)#CHARACTER B 
° ° V 
(© 3°. VRULLZ )FILLS(* ",QUADX )FILLS EX 
Xe Xe 
XOX0e 
XOe 
XxOx0e 
XOe Xe 
ANALYSIS: 


CFORMAT WILL FORCE BOTH A AND B INTO CHARACTER FORM IF ONLY ONE IS SO. 
CONFORM WILL PAD THE SMALLER ARRAY TO THE SHAPE OF THE LARGER, 

UNLESS EITHER ONE IS SCALAR. 
STRUCT REDEFINES THE RAWK OF ITS OPERAND. 
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LOC LOCATE STRUCTURED DATA 


SYNTAX: I+P LOC A 


o RESULT IS A MATRIX OF THE STARTING LOCATIONS QI0<0 
IF THE ENTIRE STRUCTURE WAS FOUND AT LEAST ONCE. 
P IS THE SEARCH ARGUMENT. (SEE VONESIN) 

°0 USES: VA 


V I+P LOC A;0I0 
[1] I«(pA)TCAA(1p,P)O(,P)°.=,A)/1x/pA A DLO«0 
V 
EXAMPLE: 
'TOP SECRET'LOC'STOP SECRETARY' 
4 


ANALYSIS: 

5 6 LOC 17 
C1] I<«(pA)T(A#(1p,P)O(,P)°.=,4)/1x/pA A OL0+<0 
Pee IN CLEAR WS ,OIO+1 
34567 LOCALLY « OLI0<0 


1 2 
[1] I+(pA)T(A4(19,P)0(,P)°.=,4)/1x/pA A OT0<0 


[1] I+(pA)T(A#(19,P)6(,P)°.=,4)/1x/pA A OIO+«0 


[1] I<«(pA)t(A4(1p.P)>(,P)°.=,A)/1x/pA A DLO+«0 


0123 4 5 6 
[1] I«(pA)T(A#(19,P)O(,P)°.=,4)/1x/pA A OI0«0 


Cae I<«(pA)T(A#(19,P)0(,P)°.=,;4)/1x/pA A OIO+0 


ee 


oO 
oO 
oO 


010 0 
001 0 
I+(pA)T(A4(19sP)$(,P)°.=,4)/1%/pA A DI0«0 


[1] I+(pA)T(A#(19,P)0(,P)°.=,4)/1x/pA A QIO<0 


ome) 
oo 
oo 


010 
Oa 0 
I<«(pA 


YT(A4(19,P)6(,P)°.=,4)/1x/pA A OIO«<0 


bc ck ee ee 


p 
uu 
C1] ICpA)TCAA (1p ,P)O(,P)°.=,4)/1x/pA A DTO+0 


cag I«(pA)T(A4(19,P)$9(,P)°.=,4)/1x/pA A OLO+«0 


me em eres cm tne cee eum wee caemm cmemes Ome geet come mm me cee es en ce cee tee ce eee eee ee eee ee ee ee ee ee 


LOGICAL MISCELLANEOUS ( INTEGER FLOATING EMPTY ] 


SYNTAX: T<LOGICAL A 


on Sate ee Se 


Lede 


ted] 


o RETURN 1 IF THE STRUCTURE SATISFIES CONDITION, 
OTHERWISE, 0. 


T<LOGICAL A 
T<A/(,A)e1 0 


T<INTEGER A 
>+(CHARACTER A)/T<0O 
T<OA.=1]|,A 


T<+FLOATING A 

A DEF'WN: FLOATING=1, AS USED HERE, MEANS AT LEAST OWE 
A MEMBER OF THE ARGUMENT IS NOT AN INTEGER. 
[T+(~INTEGER A)A(~LOGICAL A)A~CHARACTER A 


V T<+EMPTY A 


T<O0=p,A 


EXAMPLES: 


LOGICALi4 
LOGICAL: UI0+«1 
EMPTY1i0 
INTEGER 11 
(ONES AWD ZEROS ARE INTEGERS) 
FLOATING. 1 


FLOATING 0.1 


CHARACTER 1 


CHARACTER ‘1! 
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NUMBLANKCOLS COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE 


SYNTAX: Z<*+NUMBLANKCOLS A 


o RETURNS A TWO-ELEMENT VECTOR REPRESENTING COLUMNS OF 
SUCCESSIVE BLANKS ON THE LEFT AND RIGHT SIDE OF STRUCTURE. 

FUNCTION: 

V Z*NUMBLANKCOLS A 
[1] Ax<af! "= PMATRIX A 
[2] 2+«(pA)|(-O20)+(A10),(6A)10 

V 
EXAMPLES: 


tn 


NUMBLANKCOLS 3 4o' ! 


0 0 
NUMBLANKCOLS ' ',3 4p'K! 
10 
NUMBLANKCOLS 3 4p' K'! 
21 
ANALYSIS: NUMBLANKCOLS 2 59' AB ! 
[1] Aaf' '=9eMATRIX A 
ia a ike GUARANTEES CHARACTER MATRIX 
AB 
AB 
Li] A+af! '=¥MATRIX A 
1400141 
400-2 4 


[2] Z<«(pA)|(-OL0)+(A10), (64) 10 


ds do Oe hh 
J Z+(p4)1(-070)+(4A10),(64)10 


FROM THE RIGHT 


3 
[2]  2+(pA)|(-OI0)+(A10), (A) 10 


2 
24] Z+(pA)|(-OL0)+(A10),(4)10 


[2] Z<«(pA)|(-O70)+(410),(64)10 
ee ORIGIN INDEPENDENT 


2] Z<«(pA)|(-OT0)+(A10),(04)10 


Z+(pA)|(-DI0)+(A10),(4) 10 


5 
[2] Z+(pA)|(-0I0)+(A10),(64)10 


ZEROS IF ALL BLANK 
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ONESIN 


SYNTAX: 


C1] 


EXAMPLE: 
A+2 3 4015 
A 
OF. de <8 
4 OO 1 2 
ce ne 9 Sa | 
2 3 4 0 
1 2 3 4 
Oo 1 .2. 8 
ONESIN A 
0} 20". Oi) 1. a 
O° <-> 2 Ae. 2 
-. 2 agi Oe 21 


LOCATE ONES IN NUMERIC STRUCTURE 


R+ONESIN A 


AN ARRAY OF ONES AND ZEROS MAY HAVE BEEN THE RESULT OF A 
TEST OF ANOTHER ARRAY. THIS FUNCTION WILL CONVERT THE ONES 
TO THEIR OWN LOCATIONS (QI0<«0) BY COLUMNS, THAT CAN READILY 
BE USED TO GENERATE SUBSCRIPTS THAT RELATE TO THE SOURCE. 


VY R*«ONESIN A;0I0 
R<(pA)TR/1pR<,1=A+0I0<0 


V 
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THRU GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 


SYNTAX: R<«F THRU TB 


°o TO PRODUCE NUMERIC VECTORS WITH INTEGRAL OR FRACTIONAL 
INCREMENTS OR DECREMENTS 


V R«F THRU TB;0I0;B 
Eee R+F+(xR)xBxii+l | R«(TBLOIJ-F)+B<|7BC11+0F0<0 
[2] a GENERATES EQUAL INTERVALS BETWEEN LIMITS F (A SCALAR) AWD 1+TB 
C4] a 1+7B++THE DESIRED INTERVAL,E.G.,1,01,0.125,360,27C. 


V 
EXAMPLE: 


6 PFHAG:. 12 2 
6 8 10 


ANALYSIS: 47 THRU 43 0.5 


Ea ReF+(xR)xBxrvitl | R«(7BC0]-F)+B+|7BL1I1+0I0+0 


[1] R<F+(xR)xBxii+l |R<«(7TBLO]-F)+B<|7B011+070~<0 


oo ee ome ee ee ome 
— ae em cme cme ee cme eam orm oe eee em eee ee ee ee ee ee eye ee we oe om 


SIGN CAPTURED 


Ci] R<«F+(xR)xBxiit+tl | R<«( 7TBLOJ-F)+B<|7BL13+0I0<0 


es eS eee Se 


FOR FRACTIONS 


[1] R«F+(xR)xBxii+l | R<«(TBLO]-F)+B<|7BC11+0r0<0 


ee ee ee we ee ee ee ee eee ee ee ome ee oe et me em ee me owe owe ae ae om ame om om ae 


FOR END-POINT 


i R+F+(xR)xBxiittl |R<«(TBLCO]-F)+B<|7BC1)1+0T0<0 


O4°2 3.45 6 7°8 
[ 


0.5 11.5 2 2.5 3 3.5 4 
| R«F+(xR)xBxii+l | R«(TBCOIJ-F)+B+|7BC1I1+0L0+0 


SIGN APPLIED 


[1] R+F+(xR)xBxi11+l |R<«( 7BL01]-F)+B<|7B013+0L0<0 


OP Os A es Os OS Se a Se 
[1] R<F+(xR)xBxi11+l | R<(7BLO]-F)+B+|7BL1 J+070<0 


47 46.5 46 45.5 45 44.5 44 43.5 43 
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TLU TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS ] 


SYNTAX: Z«+TABLE TLU ARGS 


°o RETURNS A MATRIX OF SUBSTITUTIONS CORRESPONDING TO A 
MATRIX OF ARGUMENTS. THE SUBSTITUTIONS ARE FOUND IN A 
TABLE WHOSE INITIAL COLUMNS WILL BE MATCHED AGAINST 
ANY NUMBER OF ARGUMENTS, IN ANY ORDER. 

o THE ARGUMENTS ARE USUALLY PRESENTED AS A MATRIX, BUT A 
SINGLE ARGUMENT MAY BE VECTOR OR SCALAR. 

© UNDISCOVERED FUNCTIONS WILL BE RETURNED AS BLANKS (OR ZEROS). 

o THE UNMATCHED ARGUMENTS WILL BE REPORTED AT THE TERMINAL. 

o IF THE ARGUMENT PORTION OF THE TABLE IS NOT UNIQUE, 

THE FUNCTION OF THE FIRST OCCURRENCE OF THE ARGUMENT 
IN THE TABLE WILL BE RETURNED. 
o USES: VHANG, WHICH PRESERVES THE STACK FOR ANALYSIS. 
VFIRSTM TO REMOVE DUPLICATES FROM TABLE. 
VIS TO CHECK WHETHER TABLE AND ARGUMENT ARE 
EITHER BOTH NUMERIC, OR BOTH CHARACTER. 
VMATRIX VIF VON 


FUNCTIONS: 
VY Z<+TABLE TLU ARGS3W:R3L 
[1] ‘ARGS AND TABLE DISAGREE'HANG~TABLE IS ARGS<MATRIX ARGS 
[2] TABLE<(FIRSTM TABLEL;1 1+pARGS])#TABLE 
C3] L+v/R<+ARGSA.=QTABLEL 3;1W+ 1+pARGS] 
C4j Z+L\(0,W)+TABLEL(.R)/,(pR)pi 1tpR3] 
[5] +0 IFA/L 


[6] 'NOT FOUND:'ON(~L)#ARGS 
C7] ms V R<A IS B 
Vv [1] a TRUE, IF BOTH NUMERIC, 
[2] OR IF BOTH CHARACTER. 
C3] R«(0#0\0pA )=0#0\00B 
EXAMPLES: V 
ARGS TABLE SARGS 
DOo3 DO1EDUCATION DO3 
Do1 DO2SYSTEMS SUPP DO1 
D4A DO3MKTG SERV DuA 
Do2 D4UAMARKETING XXX 
DOo1 DO02 
DO03 Dow 
D4A DO03 
D02 
TABLE TLU ARGS TABLE TLU SARGS 
MKTG SERV NOT FOUND: 
EDUCATION XXX 
MARKETING 
SYSTEMS SUPP MKTG SERV 
EDUCATION EDUCATION 
MKTG SERV MARKETING 
MARKETING 
SYSTEMS SUPP SYSTEMS SUPP 


EDUCATION 
MKTG SERV 
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XVEC EXPAND LOGICAL VECTOR 


SYNTAX: R<«W XVEC B 


°o A BINARY INDICATION OF A COMPRESSED DATA STRUCTURE WILL BE 
TRANSFORMED INTO AN EXPANSION VECTOR THAT CAN INJECT 
W SPACES (OR W ZEROS IN A NUMERIC STRUCTURE) AHEAD OF THE 
FIELD OR GROUP TO BE SHIFTED. 

o SINCE THE EXPANSION CAN BE MADE ALONG ANY AXIS, THE LENGTH 
OF THE BINARY VECTOR, B, MUST EQUAL THE LENGTH OF THE AXIS. 


V R«W XVEC B 
i es R<(1 1+R+~OI0 )eR+(1pB)++\WxXB+~B 
C2] a BIS A LOGICAL VECTOR, WITH ZEROS INDICATING THE BEGINNING 
[3] a OF EACH FIELD, BEFORE WHICH Wop0 WILL BE INSERTED. 
C4] a THE ORIGINAL ZEROS WILL BE CONVERTED TO ONES. 
Vv 
EXAMPLE: 


A+O+' 'SHAPE'TOM DICK HARRY' 


B<+[)<+1 XVEC 101 
n° aa DE 

BXA 
TOM 


DICK 
HARRY 


ANALYSIS: 3 XVEC 1011 


[1] R<(1 14R+°0I0 )eR<(19B)++\WxBe~B 
~~" FLIP 

0100 

C1] 9 Re(i 1tR+~OT0 )eR«(1pB)++\WxBe~B 

0300 

[1] R<(1 1tR+-OI0)eR+(19B)++\WxBe~B 


PLUS SCAN 


3 
C1] R<(1 14+R+00I0 )eR<(19B)++\WxBer~B 


1567 
fag R<(i 14+R+-D0I0 De R<(10B)++\WxBe~B 


0123 45 6 


MEMBERSHIP 
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KWIC INDEX 


Suppose you require a technique to solve a particular problem. You suspect that within the 
handbook there is a function which can help, but you do not know its name. How do you 
locate it? 


Scan the keywords for a subject reference. When you find it, you will see (within the same 
abstract) the name of the APL function you need. 


Conversely, you may determine the purpose of a function if you know only its name. Use 
the function name. as a keyword to yield the appropriate abstract. 
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VADD MULTIPRECISION INTEGER ADDITION 


ADD COLUMNS TO A MATRIX VECTOR OR SCALAR VADDCOLS 

ADD ROWS TO A MATRIX VECTOR OR SCALAR VADDROWS 
VADDCOLS ADD COLUMNS TO A MATRIX VECTOR OR SCALAR 

ADDITION VADD MULTIPRECISION INTEGER 
ADDITION VFADD MULTIPRECISION FLOATING POINT 
VADDROWS ADD ROWS TO A MATRIX VECTOR OR SCALAR 

ADJACENT ELEMENTS [ UNSCAN J VDIFF DIFFERENCES BETWEEN 
VADJUSTDOWN EXTEND THE '|' IN REPORT FORMATTING [ ROWINDICES ] 
VADJUSTUP EXTENDS ‘|' IN REPORT FORMATTING 

VALPREC ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER 

ALT J VIIME RUNNING TIME AND NEW SPACE FOR AW APL STATEMENT [ 
ALTER PRECISION OF A SCALAR OR MULTIPRECISION NUMBER VALPREC 
VAMORTIZE MORTGAGE CALCULATION BY MONTHS 

APL STATEMENT [ ALT ] VT IME RUNNING TIME AND NEW SPACE FOR AN 
APPEARANCE IN MATRIX [ FIRSTV ] VFIRSTM SELECT FIRST OR ONLY 
ARBITRARY PRECISION VEL COMPUTE PI TO 
ARBITRARY SCALAR UNITVDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO 
ARGUMENTS [ IS ] VILU TABLE LOOK-UP OF STRUCTURED 
ARRAY VREPL REPLACE ALL OCCURRENCES OF ELEMENT IN 
ARRAY [ DLB RJUST DL ] VLJUST LEFT JUSTIFY ANY 
ARRAY TO NUMERIC PATTERN VCHAR BUILD CHARACTER 
ARRAY ( MATRIX CHARACTER ] VFRAME FRAME AN 
ARRAYS VCITED EXTRACT CITED STRINGS FROM CHARACTER 
ARRAYS WITH BLANKS OR ZEROS VPAD PADS 
ASCENDING ROW INDICES L AV NFORM LJNFORM |] VGRADEUP GENERATE 
ASTRONOMERS [ MOONPHASE |] VDAYNO DAY NUMBER FOR 
ASTRONOMERS' DAY NUMBER VDATE COMPUTE NORMAL DATE FROM 
AT SIDES OF STRUCTURE VNUMBLANKCOLS COUNTS BLANK COLUMNS 
AV NFORM LINFORM j VGRADEUP GENERATE ASCENDING ROW INDICES L 
VBARGRAPH PLOT HORIZONTAL INTEGER BARGRAPHS 

BARGRAPHS VBARGRAPH PLOT HORIZONTAL INTEGER 
BASE | DIGITS CONFRAC |] VCONV CONVERT DECIMAL VALUES TO ANY 
BELONG TO A VINDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL 
VBESIDE PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT 
VBLANK DELETE SPECIFIC STRING FROM STRUCTURE [ LIM ] . 
BLANK COLUMNS AT SIDES OF STRUCTURE VNUMBLANKCOLS COUNTS 
BLANKS OR ZEROS VPAD PADS ARRAYS WITH 
BUILD CHARACTER ARRAY TO NUMERIC PATTERN VCHAR 

BUILD COMPRESSION OR LOGICAL VECTOR VCVEC 


BY COLUMNS ( VERTAB CFORMAT CMATRIX ROWFORM 3} VCCAT CATENATE 
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BY IN FROM ] VTO NUMERIC VECTORS IN FQUAL INCREMENTS [ 


BY MONTHS VAMORTIZE MORTGAGE CALCULATION 
BY ROW OF A MATRIX [ ESCAPE ESCAPEX |] VVFORM VARIABLE FORMAT 
BY ROWS ( COLFORM CHARACTER VERT ] VRCAT CATENATE STRUCTURES 
BY SIDE IN REPORT FORMAT VBESIDE PRESENTS TWO STRUCTURES SIDE 
CALCULATION BY MONTHS VAMORTIZE MORTGAGE 
CALCULATIONS [ DATES NDATES PAYDAY ] VDAYS DATE 
VCAN EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT 
CANONICAL FORMAT VCAN EDIT MULTIPRECISION INTEGERS INTO 
CATENATE ANY STRUCTURES VON CONFORM AND 
CATENATE BY COLUMNS ( VERTAB CFORMAT CMATRIX ROWFORM |] VCCAT 

CATENATE STRUCTURES BY ROWS [ COLFORM CHARACTER VERT J] VRCAT 

CATENATES TWO STRUCTURES [ CENTER ] VCENTERON CENTERS AND 
VCCAT CATENATE BY COLUMNS |. VERTAB CFORMAT CMATRIX ROWFORM ] 
CDIV ] VZDIV ZERO TOLERANT DIVISION [ 
CENTER HEADINGS OVER FORMATTED COLUMNS ( CNTR DMZ NEXTA ] VOUTPUT 

CENTER ] VCENTERON CENTERS AND CATENATES TWO STRUCTURES L 
VCENTERON CENTERS AND CATENATES TWO STRUCTURES [( CENTER ] 

CENTERS AND CATENATES TWO STRUCTURES ( CENTER ] VCENTERON 
CFORMAT CMATRIX ROWFORM |] VCCAT CATENATE BY COLUMNS [ VERTAB 
CFORMAT CONFORM STRUCT A ] VFILLS REPLACE VACANT ELEMENTS L 
VCHAR BUILD CHARACTER ARRAY TO NUMERIC PATTERN 

CHARACTER ARRAY TO NUMERIC PATTERN VCHAR BUILD 
CHARACTER ARRAYS VCITED EXTRACT CITED STRINGS FROM 
CHARACTER MATRIX EXPAND RESULT [ V2mM J VM2V COMPRESS 
CHARACTER MATRIX [L USCORE |] VULINE UNDERLINE SPECIFIED ROWS OF 
CHARACTER STRING VSHAPE SHAPE MATRIX FROM 
CHARACTER STRING VFORMAT CONVERT MULTIPRECISION NUMBER TO 
CHARACTER STRUCTURE [ DLIMB |] VERECT ERECT WORD MATRIX FROM 
CHARACTER STRUCTURE [ DIMB } VWORD SELECT NTH WORD IN 
CHARACTER STRUCTURE [ SEDIT ] VEDIT EDIT LATENT EXPRESSION OR 
CHARACTER VERT ] VRCAT CATENATE STRUCTURES BY ROWS (| COLFORM 
CHARACTER |] VFRAME FRAME AW ARRAY [ MATRIX 
CHARACTER | VLOGICAL MISCELLANEOUS [| INTEGER FLOATING EMPTY 
CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY VVARS DISPLAY 
CHARACTERS VITCcCc SYSTEM INDEPENDENT TERMINAL CONTROL 
CHARACTERS OR VALUES VDT DELETE TRAILING INSIGNIFICANT 
CHECK TERMINAL ENTRY OR DEFAULT VPROMPT PROMPT AND 
CHECKS A MATRIX FOR FRAMING VFRAMETEST 

CHI SQUARE PROBABILITY FUNCTION VQPROBF COMPUTE 


VCITED EXTRACT CITED STRINGS FROM CHARACTER ARRAYS 
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CITED STRINGS FROM CHARACTER ARRAYS VCITED EXTRACT 


CMATRIX ROWFORM ] VCCAT CATENATE BY COLUMNS [ VERTAB CFORMAT 
CNTR DMZ NEXTA J] vOUTPUT CENTER HEADINGS OVER FORMATTED COLUMNS [ 
CODES VCOLLECT COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON 
CORFFICIENTS OF COMMON CODES VCOLLECT COLLECT AND SUMMARIZE 
COLFORM CHARACTER VERT ] VRCAT CATENATE STRUCTURES BY ROWS [ 
VCOLLECT COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES 

COLLECT AND SUMMARIZE COEFFICIENTS OF COMMON CODES VCOLLECT 

COLNO 1 VTABS COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ 
COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A VINDEX 

COLUMNS AT SIDES OF STRUCTURE VNUMBLANKCOLS COUNTS BLANK 
COLUMNS TO A MATRIX VECTOR OR SCALAR VADDCOLS ADD 
COLUMNS ( CNTR DMZ NEXTA 1] VOUTPUT CENTER HEADINGS OVER FORMATTED 
COLUMNS ( VERTAB CFORMAT CMATRIX ROWFORM ] VCCAT CATENATE BY 
VCOMB ALL COMBINATIONS OF ELEMENTS [ DEBLANK UNIQ J 
COMBINATIONS OF ELEMENTS { DEBLANK UNIQ 1] VCOMB ALL 
COMMON CODES VCOLLECT COLLECT AND SUMMARIZE COEFFICIENTS OF 
COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO ] VTABS 

COMPARE ] VHEADERON PUTS A HEADING ON A REPORT [ 
COMPRESS CHARACTER MATRIX EXPAND RESULT ( V2M ] VM2V 

COMPRESSION OR LOGICAL VECTOR VCVEC BUILD 
COMPUTE CHI SQUARE PROBABILITY FUNCTION VQPROBF 

COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY NUMBER VDATE 

COMPUTE PI TO ARBITRARY PRECISION VPI 

COMPUTE THE DATE OF EASTER VEASTER 

CONFORM AND CATENATE ANY STRUCTURES VON 

CONFORM STRUCT A ] VFILLS REPLACE VACANT ELEMENTS ( CFORMAT 
CONFRAC ] VCONV CONVERT DECIMAL VALUES TO ANY BASE [ DIGITS 
CONTENTS OF VARS SELECTIVELY  VVARS DISPLAY CHARACTERISTICS OR 
CONTROL CHARACTERS vrcc SYSTEM INDEPENDENT TERMINAL 
CONTROLLED FORMAT [ HANG ] VPABULATE NUMERIC STRUCTURES IN 
VCONV CONVERT DECIMAL VALUES TO ANY BASE ( DIGITS CONFRAC ] 
CONVERT DECIMAL VALUES TO ANY BASE ( DIGITS CONFRAC ] VCONV 

CONVERT INTEGER TO ROMAN NUMERALS VROMAN 

CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING VFORMAT 

CONVERT TO DECIMAL VDEC 

CONVERT TO MULTIPRECISION FLOATING POINT [ SCALE ] VFLOAT 

CONVERT TO MULTIPRECISION INTEGER VFIX 

COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE VNUMBLANKCOLS 
CURRENT SESSION AND WORKSPACE STATUS [ NOW ] VSTATUS 


VCVEC BUILD COMPRESSION OR LOGICAL VECTOR 
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DATA VLOC LOCATE STRUCTURED 


VDATE COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY NUMBER 

DATE CALCULATIONS [ DATES NDATES PAYDAY ] VDAYS | 

DATE FROM ASTRONOMERS' DAY NUMBER VDATE COMPUTE NORMAL 
DATE OF EASTER VEASTER COMPUTE THE 
DATES NDATES PAYDAY ] VDAYS DATE CALCULATIONS [ 
DAY NUMBER VDATE COMPUTE NORMAL DATE FROM ASTRONOMERS ' 
DAY NUMBER FOR ASTRONOMERS [ MOONPHASE ] VDAYNO 

VDAYNO DAY NUMBER FOR ASTRONOMERS [ MOONPHASE J] 

VDAYS DATE CALCULATIONS [ DATES NDATES PAYDAY ] 

DEBLANK UNIQ ] VCOMB ALL COMBINATIONS OF ELEMENTS [ 
VDEC CONVERT TO DECIMAL 

DECIMAL VDEC CONVERT TO 
DECIMAL VALUES TO ANY BASE | DIGITS CONFRAC jJ VCONV CONVERT 
DEFAULT VPROMPT PROMPT AND CHECK TERMINAL ENTRY OR 
DELETE SPECIFIC STRING FROM STRUCTURE [ LIM } VBLANK 

DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES VDT 

VDIFF DIFFERENCES BETWEEN ADJACENT ELEMENTS [ UNSCAN ] 
DIFFERENCES BETWEEN ADJACENT ELEMENTS [ UNSCAN J VDIFF 

DIGITS VITRUNC TRUNCATE HIGHER AND LOWER ORDER 


DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY VVARS 
DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNITVDROUNDS 


VDIV MULTIPRECISION INTEGER DIVISION 

DIVISION VDIV MULTIPRECISION INTEGER 
DIVISION VFDIV MULTIPRECISION FLOATING POINT 
DIVISIOW ( CDIV J VZDIV ZERO TOLERANT 
DL | VLIUST LEFT JUSTIFY ANY ARRAY [ DLB RJUST 
DLB RJUST DL J VLJUST LEFT JUSTIFY ANY ARRAY [ 
DLTMB ] VERECT ERECT WORD MATRIX FROM CHARACTER STRUCTURE L 
DMZ NEXTA J] VOUTPUT CENTER HEADINGS OVER FORMATTED COLUMNS [ CNTR 
VDREP SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE 

VDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNIT 
VDI DELETE TRAILING INSIGNIFICANT CHARACTERS OR VALUES 

DTMB ] VWORD SELECT WTH WORD IN CHARACTER STRUCTURE [ 
EASTER VEASTER COMPUTE THE DATE OF 
VEASTER COMPUTE THE DATE OF EASTER 

VEDIT EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [ SEDIT ] 
EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [ SEDIT ] VEDIT 

EDIT MATRIX VMEDIT 

EDIT MULTIPRECISION INTEGERS INTO CANONICAL FORMAT VCAN 


EDITING Cl POSTEDIT J] VPREEDIT PREPARE MATRIX FOR FUNCTION-LIKE 
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ELEMENT IN ARRAY VREPL REPLACE ALL OCCURRENCES OF 
ELEMENTS [ DEBLAWK UNI@Q |] VCOMB ALL COMBINATIONS OF 
ELEMENTS ( SORTDA KFORM ] VFREQ FREQUENCY DISTRIBUTION OF 
ELEMENTS [ UNSCAW ] VDIFF DIFFERENCES BETWEEN ADJACENT 
ELEMENTS FROM ANY STRUCTURE VDREP SELECT UNIQUE 
ELEMENTS | CFORMAT CONFORM STRUCT A ] VFILLS REPLACE VACANT 
EMPTY CHARACTER ] VLOGICAL - MISCELLANEOUS ( INTEGER FLOATING 
VENC GENERATE SUFFICIENT ENCODING POSITIONS 

ENCODING POSITIONS VENC GENERATE SUFFICIENT 
ENTRY OR DEFAULT VPROMPT PROMPT AND CHECK TERMINAL 
EQUAL INCREMENTS BETWEEN LIMITS VTHRU GENERATE INDICES OR OTHER 
EQUAL INCREMENTS [ BY IN FROM ] vVTO NUMERIC VECTORS IW 
VERECT ERECT WORD MATRIX FROM CHARACTER STRUCTURE [ DLIMB J 

ERECT WORD MATRIX FROM CHARACTER STRUCTURE { DLIMB j VERECT 

ESCAPE ESCAPEX ] VVFORM VARIABLE FORMAT BY ROW OF A MATRIX [ 
ESCAPEX ] VVFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE 
EXISTING ONES [ COLNO J VTABS COMPARE REQUIRED TAB SETTINGS TO 
EXPAND LOGICAL VECTOR VXVEC 

EXPAND RESULT ( V2M |] VM2V COMPRESS CHARACTER MATRIX 
EXPONENTIAL FUNCTION — VFEXP MULTIPRECISION FLOATING POINT 
EXPRESSION OR CHARACTER STRUCTURE [ SEDIT ] VEDIT EDIT LATENT 
VEXTEND EXTEND VECTOR WITH LAST VALUE 

EXTEND THE '|' IN REPORT FORMATTING ( ROWINDICES ] VADJUSTDOWN 
EXTEND VECTOR WITH LAST VALUE VEXTEND 

EXTENDS '|' IN REPORT FORMATTING © VADJUSTUP 
EXTRACT CITED STRINGS FROM CHARACTER ARRAYS VCITED 

VFADD MULTIPRECISION FLOATING POINT ADDITION 

VEDIV MULTIPRECISION FLOATING POINT DIVISION 

VFEXP MULTIPRECISION FLOATING POINT EXPONENTIAL FUNCTION 

VFILLS REPLACE VACANT ELEMENTS | CFORMAT CONFORM STRUCT A J 

FIRST OR ONLY APPEARANCE IN MATRIX [ FIRSTV |] VFIRSTM SELECT 
VFIRSTM SELECT FIRST OR ONLY APPEARANCE IN MATRIX [ FIRSTV |] 


_ FIRSTV ] VFIRSTM SELECT FIRST OR ONLY APPEARANCE IN MATRIX L 


VEFIX CONVERT TO MULTIPRECISION INTEGER 

VELOAT | CONVERT TO MULTIPRECISION FLOATING POINT (| SCALE |] 
FLOATING EMPTY CHARACTER ] VLOGICAL MISCELLANEOUS (| INTEGER 
FLOATING POINT ADDITION VFADD MULTIPRECISION 
FLOATING POINT DIVISION VFDIV MULTIPRECISION 
FLOATING POINT EXPONENTIAL FUNCTION VFEXP MULTIPRECISION 
FLOATING POINT MULTIPLICATION VFMUL MULTIPRECISION 
FLOATING POINT SQUARE ROOT VFSQRT MULTIPRECISION 
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FLOATING POINT SUBTRACTION VFSUB MULTIPRECISION 
FLOATING POINT ( SCALE ] VFLOAT CONVERT TO MULTIPRECISION 
VFMUL MULTIPRECISION FLOATING POINT MULTIPLICATION 

VFORMAT CONVERT MULTIPRECISION NUMBER TO CHARACTER STRING 

FORMAT VCAN EDIT MULTIPRECISION INTEGERS INTO CANONICAL 
FORMAT VBESIDE PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT 
FORMAT BY ROW OF A MATRIX ( ESCAPE ESCAPEX ] VVFORM VARIABLE 
FORMAT ( HANG J VTABULATE NUMERIC STRUCTURES IN CONTROLLED 
FORMATTED COLUMNS ( CNTR DMZ NEXTA ] VOUTPUT CENTER HEADINGS OVER 
FORMATTED MATRIX VWIDTH MEASURE 
FORMATTING VADJUSTUP EXTENDS '|' IN REPORT 
FORMATTING [ IF ] VPREPARE STANDARDIZE STRUCTURE FOR REPORT 
FORMATTING ( ROWINDICES |] VADJUSTDOWN EXTEND THE '|' IN REPORT 
VFRAME FRAME AWN ARRAY [| MATRIX CHARACTER } 

FRAME AN ARRAY [ MATRIX CHARACTER |] VFRAME 
VFRAMETEST CHECKS A MATRIX FOR FRAMING 

FRAMING VFRAMETEST CHECKS A MATRIX FOR 
VFREQ FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA KFORM ] 
FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA KFORM ] VFREQ 

FROM ANY STRUCTURE VDREP SELECT UNIQUE ELEMENTS 
FROM ASTRONOMERS' DAY NUMBER VDATE COMPUTE NORMAL DATE 
FROM CHARACTER ARRAYS VCITED EXTRACT CITED STRINGS 
FROM CHARACTER STRING VSHAPE SHAPE MATRIX 
FROM CHARACTER STRUCTURE [| DLITMB ] VERECT ERECT WORD MATRIX 
FROM STRUCTURE [ LIM ] VBLANK DELETE SPECIFIC STRING 
FROM ] VTO . NUMERIC VECTORS IN EQUAL INCREMENTS [ BY IW 
VFSQRT MULTIPRECISION FLOATING POINT SQUARE ROOT 

VFSUB MULTIPRECISION FLOATING POINT SUBTRACTION . 
FUNCTION VQPROBF COMPUTE CHI SQUARE PROBABILITY 
FUNCTION VFEXP MULTIPRECISION FLOATING POINT EXPONENTIAL 
FUNCTION IN STANDARD FORM VLISTFN LISTS A 
FUNCTION-LIKE EDITING [ POSTEDIT ] VPREEDIT PREPARE MATRIX FOR 
GENERATE ASCENDING ROW INDICES L AV NFORM LJNFORM ] VGRADEUP 
GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS VTHRU 

GENERATE SUFFICIENT ENCODING POSITIONS VENC 


VGRADEUP GENERATE ASCENDING ROW INDICES [ AV NWFORM LJNFORM |] 


HANG |] VTABULATE NUMERIC STRUCTURES IN CONTROLLED FORMAT [ 
VHEADERON PUTS A HEADING ON A REPORT [ COMPARE ] 

HEADING ON A REPORT L COMPARE |] VHEADERON PUTS A 
HEADINGS OVER FORMATTED COLUMNS [ CNTR DMZ NEXTA ] VOUTPUT CENTER 
HIGHER AND LOWER ORDER DIGITS VTRUNC TRUNCATE 
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HORIZONTAL INTEGER BARGRAPHS VBARGRAPH PLOT 


IF } VPREPARE STANDARDIZE STRUCTURE FOR REPORT FORMATTING L 
INCREMENTS BETWEEN LIMITS VTHRU GENERATE INDICES OR OTHER EQUAL 
INCREMENTS ( BY IN FROM VITO NUMERIC VECTORS IN EQUAL 
INDEPENDENT TERMINAL CONTROL CHARACTERS VTCcCc SYSTEM 
VINDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A 
INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG TO A VINDEX COLUMN 
INDICES [ AV NFORM LJNFORM VGRADEUP GENERATE ASCENDING ROW 
INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS VTHRU GENERATE 
INSIGNIFICANT CHARACTERS OR VALUES VDT DELETE TRAILING 
INTEGER VFIX CONVERT TO MULTIPRECISION 
INTEGER ADDITION VADD MULTIPRECISION 
INTEGER BARGRAPHS VBARGRAPH PLOT HORIZONTAL 
INTEGER DIVISION VDIV MULTIPRECISION 
INTEGER FLOATING EMPTY CHARACTER ] VLOGICAL MISCELLANEOUS [ 
INTEGER MULTIPLICATION VMUL MULTIPRECISION 
INTEGER SQUARE ROOT VSQRT MULTIPRECISION 
INTEGER SUBTRACTION VSUB MULTIPRECISION 
INTEGER TO ROMAN NUMERALS VROMAN CONVERT 
INTEGERS INTO CANONICAL FORMAT VCAN EDIT MULTIPRECISION 
INTO CANONICAL FORMAT VCAN EDIT MULTIPRECISION INTEGERS 
IOTA VRIOTA MATRIX ROW 
LS. 4 VILU TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ 
JUSTIFY ANY ARRAY [ DLB RJUST DL ] VLIUST LEFT 
KFORM |] VFREQ . FREQUENCY DISTRIBUTION OF ELEMENTS [ SORTDA 
LAST VALUE VEXTEND EXTEND VECTOR WITH 
LATENT EXPRESSION OR CHARACTER STRUCTURE [| SEDIT ] VEDIT EDIT 
LEFT JUSTIFY ANY ARRAY L DLB RJUST DL J] VLIUST 

LIM ] VBLANK DELETE SPECIFIC STRING FROM STRUCTURE [ 
LIMITS VTHRU GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN 
VLISTFN LISTS A FUNCTION IN STANDARD FORM 

LISTS A FUNCTION IN STANDARD FORM VLISTFN 

LINFORM |} VGRADEUP GENERATE ASCENDING ROW INDICES [ AV NFORM 
VLIUST LEFT JUSTIFY ANY ARRAY [ DLB RJUST DL J] 

VLOC LOCATE STRUCTURED DATA 

LOCATE ONES IN NUMERIC STRUCTURE VONESIN 

LOCATE STRUCTURED DATA VLOC 

VLOGICAL — MISCELLANEOUS [ INTEGER FLOATING EMPTY CHARACTER ] 

LOGICAL VECTOR VCVEC BUILD COMPRESSION OR 
LOGICAL VECTOR VXVEC EXPAND 


LOWER ORDER DIGITS VTRUNC TRUNCATE HIGHER AND 


0OL 


MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 
MATRIX 


MEASURE FORMATTED MATRIX 
VMEDIT 
MEMBERS ALL BELONG TO A 


VMEDIT EDIT 

VWIDTH MEASURE FORMATTED 

EXPAND RESULT [ V2M ] VM2V COMPRESS CHARACTER 

B WHOSE MEMBERS ALL BELONG TO A VINDEX COLUMN INDEX IW 

CHARACTER ] VFRAME FRAME AW ARRAY [ 

FOR FRAMING VFRAMETEST CHECKS A 

FOR FUNCTION-LIKE EDITING [ POSTEDIT ] VPREEDIT PREPARE 

FROM CHARACTER STRING VSHAPE SHAPE 

FROM CHARACTER STRUCTURE [ DLITMB J VERECT ERECT WORD 
ROW IOTA VRIOTA 

VECTOR OR SCALAR VADDCOLS ADD COLUMNS TO A 


VECTOR OR SCALAR VADDROWS ADD ROWS TO A 
[ ESCAPE ESCAPEX ] VVFORM VARIABLE FORMAT BY ROW OF A 
[ FIRSTV ] VFIRSTM SELECT FIRST OR ONLY APPEARANCE IN 
[ USCORE ] VULINE UNDERLINE SPECIFIED ROWS OF CHARACTER 


VWIDTH 
EDIT MATRIX 


VINDEX COLUMN INDEX IN MATRIX B WHOSE 


MISCELLANEOUS ( INTEGER FLOATING EMPTY CHARACTER ] 


MONTHS 
MOONPHASE |] 


VMUL 
MULTIPLICATION 
MULTIPLICATION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 
MULTIPRECISION 


FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 


INTEGERS INTO CANONICAL FORMAT 
ALTER PRECISION OF A SCALAR OR 
VFORMAT 


NUMBER 


NUMBER TO CHARACTER STRING 


VAMORTIZE 


VDAYNO 
MORTGAGE CALCULATION BY MONTHS 

MULTIPRECISION INTEGER MULTIPLICATION 
MULTIPRECISION INTEGER 


VMUL 


VFMUL 


POINT 
POINT 
POINT 
POINT 
POINT 
POINT 
POINT 


ADDITION 
DIVISION 


VLOGICAL 


MORTGAGE CALCULATION BY 


EXPONENTIAL FUNCTION 


[ SCALE ] 
MULTIPLICATION 
SQUARE ROOT 
SUBTRACTION 


ADDITION 
DIVISION 
MULTIPLICATION 
SQUARE ROOT 
SUBTRACTION 


VALPREC 


VFLOAT 


VFIX 


DAY NUMBER FOR ASTRONOMERS lL 


VAMORTIZE 


MULTIPRECISION FLOATING POINT 


VFADD 
VFDIV 
VFEXP 

CONVERT TO 
VFMUL 
VFSQRT 
VFSUB 

CONVERT TO 
VADD 
VDIV 
VMUL 
VSQRT 
VSUB 

EDIT 


CONVERT 
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VM2V COMPRESS CHARACTER MATRIX EXPAND RESULT [ V2M ] 


NDATES PAYDAY } VDAYS DATE CALCULATIONS [| DATES 
NEW SPACE FOR AN APL STATEMENT [ ALT J VITIME RUNNING TIME AND 
NFORM LJNFORM J VGRADEUP GENERATE ASCENDING ROW INDICES [ AV 
NORMAL DATE FROM ASTRONOMERS' DAY NUMBER VDATE COMPUTE 
NOW J] VSTATUS CURRENT SESSION AND WORKSPACE STATUS [ 
NTH WORD IN CHARACTER STRUCTURE ( DITMB ] VWORD SELECT 
NUMBER VDATE COMPUTE NORMAL DATE FROM ASTRONOMERS' DAY 
NUMBER VALPREC ALTER PRECISION OF A SCALAR OR MULTIPRECISION 
NUMBER FOR ASTRONOMERS [ MOONPHASE 1] VDAYNO DAY 
NUMBER TO CHARACTER STRING VFORMAT CONVERT MULTIPRECISION 
VNUMBLANKCOLS COUNTS BLANK COLUMNS AT SIDES OF STRUCTURE 

NUMERALS VROMAN CONVERT INTEGER TO ROMAN 
NUMERIC PATTERN VCHAR BUILD CHARACTER ARRAY TO 
NUMERIC STRUCTURE VONESIN LOCATE OWES IW 
NUMERIC. STRUCTURES IN CONTROLLED FORMAT [| HANG J] VITABULATE 
NUMERIC VECTORS IN EQUAL INCREMENTS ( BY IN FROM J VITO 

OCCURRENCES OF ELEMENT IN ARRAY VREPL REPLACE ALL 
ONES | COLNO J} VTABS COMPARE REQUIRED TAB SETTINGS TO EXISTING 
ONES IN NUMERIC STRUCTURE VONESIN LOCATE 
VONESIN LOCATE ONES IN NUMERIC STRUCTURE 

ONLY APPEARANCE IN MATRIX [ FIRSTV j VFIRSTM SELECT FIRST OR 
ORDER DIGITS VTRUNC TRUNCATE HIGHER AND LOWER 
OTHER EQUAL INCREMENTS BETWEEN LIMITS VTHRU GENERATE INDICES OR 
VOUTPUT CENTER HEADINGS OVER FORMATTED COLUMNS [ CNTR DMZ NEXTA |] 
OVER FORMATTED COLUMNS (. CNTR DMZ NEXTA J] VOUTPUT CENTER HEADINGS 
VPAD PADS ARRAYS WITH BLANKS OR ZEROS 

PADS ARRAYS WITH BLANKS OR ZEROS VPAD 

PATTERN VCHAR BUILD CHARACTER ARRAY TO NUMERIC 
PAYDAY |] VDAYS DATE CALCULATIONS [ DATES NDATES 
VPI COMPUTE PI TO ARBITRARY PRECISION 

PI TO ARBITRARY PRECISION VPI COMPUTE 
PLOT HORIZONTAL INTEGER BARGRAPHS VBARGRAPH 

POINT ADDITION VFADD MULTIPRECISION FLOATING 
POINT DIVISION VFDIV MULTIPRECISION FLOATING 
POINT EXPONENTIAL FUNCTION VFEXP MULTIPRECISION FLOATING 
POINT MULTIPLICATION VFMUL MULTIPRECISION FLOATING 
POINT SQUARE ROOT VFSQRT MULTIPRECISION FLOATING 
POINT SUBTRACTION VFSUB MULTIPRECISION FLOATING 
POINT [ SCALE ] VFLOAT CONVERT TO MULTIPRECISION FLOATING 


POSITIONS VENC GENERATE SUFFICIENT ENCODING 
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POSTEDIT ] VPREEDIT PREPARE MATRIX FOR FUNCTION-LIKE EDITING [ 


PRECISION VPI COMPUTE PI TO ARBITRARY 
PRECISION OF A SCALAR OR MULTIPRECISION NUMBER VALPREC ALTER 
VPREEDIT PREPARE MATRIX FOR FUNCTION-LIKE EDITING [ POSTEDIT |] 
VPREPARE STANDARDIZE STRUCTURE FOR REPORT FORMATTING [ IF J 

PREPARE MATRIX FOR FUNCTION-LIKE EDITING [ POSTEDIT J VPREEDIT 
PRESENTS TWO STRUCTURES SIDE BY SIDE IN REPORT FORMAT VBESIDE 
PROBABILITY FUNCTION VQPROBF COMPUTE CHI SQUARE 
VPROMPT PROMPT AND CHECK TERMINAL ENTRY OR DEFAULT 

PROMPT AND CHECK TERMINAL ENTRY OR DEFAULT VPROMPT 

PUTS A HEADING OW A REPORT [ COMPARE ] VHEADERON 
VQPROBF COMPUTE CHI SQUARE PROBABILITY FUNCTION 

VACAT CATENATE STRUCTURES BY ROWS | COLFORM CHARACTER VERT ] 
VREPL REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY 

REPLACE ALL OCCURRENCES OF ELEMENT IN ARRAY VREPL 

REPLACE VACANT ELEMENTS [ CFORMAT CONFORM STRUCT A J VFILLS 

REPORT [ COMPARE |] VHEADERON PUTS A HEADING ON A 
REPORT FORMAT VBESIDE PRESENTS TWO STRUCTURES SIDE BY SIDE IN 
REPORT FORMATTING VADJUSTUP EXTENDS '|' IN 
REPORT FORMATTING [ IF ] VPREPARE STANDARDIZE STRUCTURE FOR 
REPORT FORMATTING | ROWINDICES |] VADJUSTDOWN EXTEND THE '|' IW 
REQUIRED TAB SETTINGS TO EXISTING OWES [ COLNO ] VTABS COMPARE 
VRIOTA MATRIX ROW IOTA 

RIUST DL |] VLIJUST LEFT JUSTIFY ANY ARRAY [ DLB 
VROMAN CONVERT INTEGER TO ROMAN NUMERALS 

ROMAN NUMERALS VROMAN CONVERT INTEGER TO 
ROOT VSQRT MULTIPRECISION INTEGER SQUARE 
ROOT VFSQRT MULTIPRECISION FLOATING POINT SQUARE 
ROUNDING VROUNDS SELECTIVE SYMMETRICAL 
ROUNDING OF A VECTOR TO ARBITRARY SCALAR UNITVDROUNDS DISTRIBUTIVE 
VROUNDS SELECTIVE SYMMETRICAL ROUNDING 

ROW INDICES [ AV NFORM LJNFORM | VGRADEUP GENERATE ASCENDING 
ROW IOTA VRIOTA MATRIX 
ROW OF A MATRIX [ ESCAPE ESCAPEX |] VVFORM VARIABLE FORMAT BY 
ROWFORM |] VCCAT CATENATE BY COLUMNS | VERTAB CFORMAT CMATRIX 
ROWINDICES ] VADJUSTDOWN EXTEND THE '|' IN REPORT FORMATTING L 
ROWS OF CHARACTER MATRIX | USCORE ] VULINE UNDERLINE SPECIFIED 
ROWS TO A MATRIX VECTOR OR SCALAR VADDROWS ADD 
ROWS ( COLFORM CHARACTER VERT |] VRCAT CATENATE STRUCTURES BY 


RUNNING TIME AND NEW SPACE FOR AW APL STATEMENT | ALT J VITIME 
SCALAR VADDROWS ADD ROWS TO A MATRIX VECTOR OR 
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SCALAR VADDCOLS ADD COLUMNS TO A MATRIX VECTOR OR 
SCALAR OR MULTIPRECISION NUMBER VALPREC ALTER PRECISION OF A 
SCALAR UNITYDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY 
SCALE ] VFLOAT CONVERT TO MULTIPRECISION FLOATING POINT [ 
SEDIT | VEDIT EDIT LATENT EXPRESSION OR CHARACTER STRUCTURE [ 
SELECT FIRST OR ONLY APPEARANCE IN MATRIX [ FIRSTV ] VFIRSTM 

SELECT NTH WORD IN CHARACTER STRUCTURE [{ DIMB ] VWORD 

SELECT UNIQUE ELEMENTS FROM ANY STRUCTURE VDREP 

SELECTIVE SYMMETRICAL ROUNDING VROUNDS 
SELECTIVELY VVARS DISPLAY CHARACTERISTICS OR CONTENTS OF VARS 
SESSION AND WORKSPACE STATUS [ NOW ] VSTATUS CURRENT 
SETTINGS TO EXISTING ONES [ COLNO ] VTABS COMPARE REQUIRED TAB 
VSHAPE SHAPE MATRIX FROM CHARACTER STRING 

SHAPE MATRIX FROM CHARACTER STRING VSHAPE 

SIDE BY SIDE IN REPORT FORMAT VBESIDE PRESENTS TWO STRUCTURES 
SIDE IN REPORT FORMAT VBESIDE PRESENTS TWO STRUCTURES SIDE BY 
SIDES OF STRUCTURE VNUMBLANKCOLS COUNTS BLANK COLUMNS AT 
SORTDA KFORM J VFREQ FREQUENCY DISTRIBUTION OF ELEMENTS [ 
SPACE FOR AW APL STATEMENT [{ ALT ] VT IME RUNNING TIME AND NEW 
SPECIFIC STRING FROM STRUCTURE [ LIM ] VBLANK DELETE 
SPECIFIED ROWS OF CHARACTER MATRIX [| USCORE ] VULINE UNDERLINE 
VSQRT MULTIPRECISION INTEGER SQUARE ROOT 

SQUARE PROBABILITY FUNCTION VQPROBF COMPUTE CHI 
SQUARE ROOT VSQRT MULTIPRECISION INTEGER 
SQUARE ROOT VFSQRT MULTIPRECISION FLOATING POINT 
STANDARD FORM VLISTFN LISTS A FUNCTION IN 
STANDARDIZE STRUCTURE FOR REPORT FORMATTING | IF ] VPREPARE 
STATEMENT ( ALT ] VIIME RUNNING TIME AND NEW SPACE FOR AN APL 
VSTATUS CURRENT SESSION AND WORKSPACE STATUS [ WOW J 

STATUS [ WOW 3} VSTATUS CURRENT SESSION AND WORKSPACE 
STRING VSHAPE SHAPE MATRIX FROM CHARACTER 
STRING VFORMAT CONVERT MULTIPRECISION NUMBER TO CHARACTER 
STRING FROM STRUCTURE ( LIM 3 VBLAWK DELETE SPECIFIC 
STRINGS FROM CHARACTER ARRAYS VCITED EXTRACT CITED 
STRUCT A ] VFILLS REPLACE VACANT ELEMENTS (| CFORMAT CONFORM 
STRUCTURE VONESIN LOCATE ONES IN NUMERIC 
STRUCTURE VDREP SELECT UNIQUE ELEMENTS FROM ANY 
STRUCTURE VNUMBLANKCOLS COUNTS BLANK COLUMNS AT SIDES OF 
STRUCTURE FOR REPORT FORMATTING i IF } VPREPARE STANDARDIZE 
STRUCTURE ( DLIMB 3} VERECT ERECT WORD MATRIX FROM CHARACTER 
STRUCTURE ( DIMB | VWORD SELECT NTH WORD IN CHARACTER 
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STRUCTURE [( LIM ] VBLANK | DELETE SPECIFIC STRING FROM 


STRUCTURE [ SEDIT } VEDIT EDIT LATENT EXPRESSION OR CHARACTER 
STRUCTURED ARGUMENTS [ IS ] VITLU . TABLE LOOK-UP OF 
STRUCTURED DATA . VLOC . LOCATE 
STRUCTURES VON CONFORM AND CATENATE ANY 
STRUCTURES BY ROWS ( COLFORM CHARACTER VERT |] VRCAT CATENATE 
STRUCTURES IN CONTROLLED FORMAT [ HANG ] VTABULATE NUMERIC 
STRUCTURES SIDE BY SIDE IN REPORT FORMAT VBESIDE PRESENTS TWO 

_ STRUCTURES [ CENTER | VCENTERON CENTERS AND CATENATES TWO 

VSUB MULTIPRECISION INTEGER SUBTRACTION 
SUBTRACTION VSUB MULTIPRECISION INTEGER 
SUBTRACTION . VF SUB MULTIPRECISION FLOATING POINT 
SUFFICIENT ENCODING POSITIONS VENC GENERATE 
SUMMARIZE COEFFICIENTS OF COMMON CODES VCOLLECT COLLECT AND 
SYMMETRICAL ROUNDING VROUNDS SELECTIVE 
SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS VICC 
TAB SETTINGS TO EXISTING OWES [ COLNO J] VTABS COMPARE REQUIRED 
TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ IS ] VILU 

VTABS COMPARE REQUIRED TAB SETTINGS TO EXISTING ONES [ COLNO J 

VTABULATE . NUMERIC STRUCTURES IN CONTROLLED FORMAT | HANG ] 

VICC SYSTEM INDEPENDENT TERMINAL CONTROL CHARACTERS 
TERMINAL CONTROL CHARACTERS VICE SYSTEM INDEPENDENT 
TERMINAL ENTRY OR DEFAULT VPROMPT PROMPT AND CHECK 
THE DATE OF EASTER . VEASTER COMPUTE 
THE '|' IN REPORT FORMATTING ( ROWINDICES } VADJUSTDOWN EXTEND 

VIHRU GENERATE INDICES OR OTHER EQUAL INCREMENTS BETWEEN LIMITS 

VIIME RUNNING TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT J] 
TIME AND NEW SPACE FOR AN APL STATEMENT [ ALT ] VIIME RUNNING 

VILU TABLE LOOK-UP OF STRUCTURED ARGUMENTS [ Is |] 

VIO NUMERIC VECTORS IN FQUAL INCREMENTS [ BY IN FROM ] 

TO A VINDEX COLUMN INDEX IN MATRIX B WHOSE MEMBERS ALL BELONG 
TO A MATRIX VECTOR OR SCALAR VADDCOLS ADD COLUMNS 
TO A MATRIX VECTOR OR SCALAR VADDROWS ADD ROWS 
TO ANY BASE [ DIGITS CONFRAC ] VCONV CONVERT DECIMAL VALUES 
TO ARBITRARY PRECISION VPI COMPUTE PI 
TO ARBITRARY SCALAR UNITVDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR 
TO CHARACTER STRING VFORMAT CONVERT MULTIIPRECISION NUMBER 
TO DECIMAL VDEC CONVERT 
TO EXISTING OWES [ COLNWO | VITABS COMPARE REQUIRED TAB SETTINGS 
TO MULTIPRECISION FLOATING POINT [ SCALE ] VFLOAT CONVERT 
TO MULTIPRECISION INTEGER VFIX — CONVER™ 
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TO NUMERIC PATTERN VCHAR BUILD CHARACTER ARRAY 
TO ROMAN NUMERALS VROMAN CONVERT INTEGER 
TOLERANT DIVISION ({ CDIV J] VZDIV ZERO 
TRAILING INSIGNIFICANT CHARACTERS OR VALUES VDT DELETE 
VTRUNC TRUNCATE HIGHER AND LOWER ORDER DIGITS 

TRUNCATE HIGHER AND LOWER ORDER DIGITS VTRUNC 
VULINE UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ USCORE ] 
UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ USCORE J] VULINE 

UNIQ ] VCOMB ALL COMBINATIONS OF ELEMENTS [ DEBLANK 
UNIQUE ELEMENTS FROM ANY STRUCTURE VDREP SELECT 
UNITVDROUNDS DISTRIBUTIVE ROUNDING OF A VECTOR TO ARBITRARY SCALAR 
UNSCAW ] VDIFF DIFFERENCES BETWEEN ADJACENT ELEMENTS [ 
USCORE |] VULINE UNDERLINE SPECIFIED ROWS OF CHARACTER MATRIX [ 
VACANT ELEMENTS |. CFORMAT CONFORM STRUCT A ] VFILLS REPLACE 
VALUE VEXTEND EXTEND VECTOR WITH LAST 
VALUES VDT DELETE TRAILING INSIGNIFICANT CHARACTERS OR 
VALUES TO AWY BASE [ DIGITS CONFRAC J] VCONV CONVERT DECIMAL 
VARIABLE FORMAT BY ROW OF A MATRIX | ESCAPE ESCAPEX ] VVFORM 
VVARS DISPLAY CHARACTERISTICS OR CONTENTS OF VARS SELECTIVELY 
VARS SELECTIVELY VVARS DISPLAY CHARACTERISTICS OR CONTENTS OF 
VECTOR VCVEC BUILD COMPRESSION OR LOGICAL 
VECTOR VXVEC EXPAND LOGICAL 
VECTOR OR SCALAR VADDCOLS ADD COLUMNS TO A MATRIX 
VECTOR OR SCALAR VADDROWS ADD ROWS TO A MATRIX 
VECTOR TO ARBITRARY SCALAR UNITVDROUNDS DISTRIBUTIVE ROUNDING OF A 
VECTOR WITH LAST VALUE VEXTEND EXTEND 
VECTORS IN EQUAL INCREMENTS ( BY IN FROM VITO NUMERIC 
VERT ] VRCAT CATENATE STRUCTURES BY ROWS [| COLFORM CHARACTER 
VERTAB CFORMAT CMATRIX ROWFORM ] VCCAT CATENATE BY COLUMNS [ 
VVFORM VARIABLE FORMAT BY ROW OF A MATRIX [ ESCAPE ESCAPEX ] 

V2M J] VM2V COMPRESS CHARACTER MATRIX EXPAND RESULT L 
WHOSE MEMBERS ALL BELONG TO A VINDEX COLUMN INDEX IN MATRIX B 
VWIDTH MEASURE FORMATTED MATRIX 

WITH BLANKS OR ZEROS VPAD PADS ARRAYS 
WITH LAST VALUE VEXTEND EXTEND VECTOR 
VWORD SELECT NTH WORD IN CHARACTER STRUCTURE [ DTMB ] 

WORD IN CHARACTER STRUCTURE | DTMB ] VWORD SELECT NTH 
WORD MATRIX FROM CHARACTER STRUCTURE [ DLIMB |] VERECT ERECT 
WORKSPACE STATUS [ NOW J VSTATUS CURRENT SESSION AND 
VXVEC EXPAND LOGICAL VECTOR 

VZDIV ZERO TOLERANT DIVISION [ CDIV ] 

ZERO TOLERANT DIVISION [| CDIV ] VZDIV 

ZEROS VPAD PADS ARRAYS WITH BLANKS OR 
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